das klappt irgendwie nicht:
dest=SpecialFolder.ApplicationData
dest=dest.Child(ProgrammName)
if not dest.Exists then // erstelle Ordner im Application Menü und kopiere
alles dort rein
dest.CreateAsFolder
datei=app.ExecutableFile.Parent.parent.Child("Resources").Child("Daten")
//datei.CopyFileTo dest
myfile.CopyObject(datei, dest,"",0,0)
datei=app.ExecutableFile.Parent.parent.Child("Resources").Child("Briefvorlagen")
//datei.CopyFileTo dest
myfile.CopyObject(datei, dest,"",0,0)
datei=app.ExecutableFile.Parent.parent.Child("Resources").Child("Bitte
lesen!")
//datei.CopyFileTo dest
myfile.CopyObject(datei, dest,"",0,0)
end if
beim ersten App-Start werden die drei Ordner kopiert, dann wird die Datenbank
in "Daten" geöffnet und die App läuft. Hier ist der Ordner "Daten" noch nicht
am Ziel angelangt wenn er die Datenbank öffnen will.... und es kommt zum Fehler
Gruß
Stefan
> Habs auch gerade im Forum von RS gelesen, Christian hatte da auch
> geantwortet...
>
> Bin mal gespannt ob nach der Änderung meine App endlich durchkommt?!?!?!?
>
> Gruß
>
> Stefan
>
>>>
>>> irre... na ja, MBS wird es richten
>>
>> Versuch mal die MacFileOperationMBS Klasse :)
>>
>> Gruss,
>> Alex
>>
>
>
