Erreur dans FileFindFirstFile()
Posté : mer. 27 nov. 2019 15:24
Bonjour tout le monde,
Mon but est de lister tous les fichiers et sous dossiers d'un dossier principal qui s'appelle dans mon exemple "directory" et les mettre sur un fichier txt.
Ensuite récupérer les valeurs du fichier txt et créér des sous dossiers dans un autre dossier qu'on appellera directory2 mais ces sous dossiers doivent porter les noms des valeurs récupérées dans le fichier txt.
Donc ca donnerait C:\directory\sousdossierA => C:\directory2\sousdossierA.
Le souci c'est qu'à un moment dans mon code le message d'erreur suivant apparait : "variable cannot be accessed in this manner"
au niveau de $txt2($i).
Vous pouvez m'aider svp?
Merci.
Mon but est de lister tous les fichiers et sous dossiers d'un dossier principal qui s'appelle dans mon exemple "directory" et les mettre sur un fichier txt.
Ensuite récupérer les valeurs du fichier txt et créér des sous dossiers dans un autre dossier qu'on appellera directory2 mais ces sous dossiers doivent porter les noms des valeurs récupérées dans le fichier txt.
Donc ca donnerait C:\directory\sousdossierA => C:\directory2\sousdossierA.
Le souci c'est qu'à un moment dans mon code le message d'erreur suivant apparait : "variable cannot be accessed in this manner"
au niveau de $txt2($i).
$user="C:\directory\"
$prefix2 = $user & "*.*"
$search2 = FileFindFirstFile($prefix2)
$txt2 = ""
While 1
$file2 = FileFindNextFile($search2)
If @error Then ExitLoop
$txt2 &= $file2 & @CRLF
WEnd
FileClose($search2)
FileWrite("liste.txt", $txt2)
Sleep(2000)
Example4()
Func Example4()
Local $txt2 = FileReadToArray("liste.txt")
For $i = 0 To UBound($txt2) - 1
$txt = $txt2($i)
DirCreate("C:\Users\rbouzidi\directory2\" & $txt2[$i] & "\")
Sleep(700)
Next
EndFunc
$prefix2 = $user & "*.*"
$search2 = FileFindFirstFile($prefix2)
$txt2 = ""
While 1
$file2 = FileFindNextFile($search2)
If @error Then ExitLoop
$txt2 &= $file2 & @CRLF
WEnd
FileClose($search2)
FileWrite("liste.txt", $txt2)
Sleep(2000)
Example4()
Func Example4()
Local $txt2 = FileReadToArray("liste.txt")
For $i = 0 To UBound($txt2) - 1
$txt = $txt2($i)
DirCreate("C:\Users\rbouzidi\directory2\" & $txt2[$i] & "\")
Sleep(700)
Next
EndFunc
Vous pouvez m'aider svp?
Merci.