Hi ich hab mir mit RealBasic ein Programm geschrieben.
Hab einen Ordner auf CD in dem sich ein Unterordner befindet in welchem sich wieder 2 Unterordner befinden.
Der erste Unterordner hat n Variablen namen aber den zu öffnen sollte eigentlich nicht das problem sein. Hab das (denke ich) auch schon hingekriegt.
Die beiden unterordner heissen Large und Small und zwar immer gleich.
Hab da jetzt n Programm geschrieben das ich mir die Dateien auf die Platte kopieren kann.
Code
Dim f,counter,i,b as Integer
Dim origin, destination,datei,g,h as FolderItem
origin=GetFolderitem(".\pictures\")
destination=SelectFolder
for i=1 to origin.count
if origin.item(i).directory then
g=origin.item(i)
exit
end if
next
f=g.count
h=origin.item(f).child("Large")
if h.exists then
for counter = 0 to h.count
datei=h.item(counter)
datei.CopyFileTo(destination.child("Large"))
progressBar1.maximum=h.count
progressbar1.value=counter
next
end if
if origin.item(f).child("Large").exists then
for counter = 0 to h.count
datei=h.item(counter)
datei.CopyFileTo(destination.child("small"))
ProgressBar1.maximum=h.count
progressBar1.value=counter
next
end if
msgBox "Kopiervorgang abgeschlossen!"
Es entsteht ne Nil Exception und zwar wenn ich h den Wert zuweise. Ich weiss nicht woran es liegt meiner Meinung nach dachte ich eigentlich das das richtig ist.
Kann mir jemand helfen und mir n tipp geben was ich falsch gemacht hab?