Tarkoitus olisi huvikseen loopata koko C:\ levyn tiedostot mutta iskee FindFile failed :/
Code: Select all
ChDir "C:\"
StartSearch
Repeat
file$=FindFile()
If file$="" Then ChDir ".." 'no more files
Print file$
onkokansio = IsDirectory(file$)
If onkokansio = 1 Then ChDir ""+file$+""
Forever
EndSearch
Käytähän ensi kerralla niitä code-tageja.
t: Dibalo