#include <File.au3>

; Define paths (change as needed)
Local $desktopDir = @DesktopDir
Local $filePath = $desktopDir & "\Files.txt"
Local $filesDir = $desktopDir & "\Files"

; Open the file for reading
Local $hFile = FileOpen($filePath, 0)
If $hFile = -1 Then
  MsgBox(0, "Error", "Cannot open file '" & $filePath & "'")
  Exit()
EndIf

; Read the file line by line
While 1
  ; Get the line
  $line = FileReadLine($hFile)
  If @error Then ExitLoop

  ; Check if the directory exists
  Local $directory = $filesDir & "\" & $line
  If FileExists($directory) Then
    ; Copy the directory to the desktop
    FileCopy($directory, $desktopDir & "\" & $line, 3)
  EndIf
WEnd

; Close the file
FileClose($hFile)

MsgBox(0, "Success", "Directories copied!")