Datei finden und kopieren!

[onny]

banner1$ = OpenFileRequester("Banners.xml", "", "XML|*.xml", 0)
If banner1$
If CopyFile(banner1$, "C:\Programme\IcqLite\litedatafiles\banners.xml\")
MessageRequester("Copy!","Kopierung erfolgreich",0)
Else
MessageRequester("Copy!","Kopierung fehlgeschlagen!",0)
End
EndIf
EndIf

Wie suche ich eine Datei die dann in ein bestimmtes verzeichnis kopiert
werden soll!
Wäre sehr nett bei Hilfe
mfg Jonas

[zigapeda]

Weiß zwar nicht so genau was du mit suchen gemeint hast aber in deinem code hast du fehler. so müsste er richtig aussehen:

Code: Alles auswählen

banner1$ = OpenFileRequester("Banners.xml", "", "XML|*.xml", 0)
If banner1$
If CopyFile(banner1$, "C:\Programme\IcqLite\litedatafiles\banners.xml") ; der letzte backslash wird weggelassen
MessageRequester("Copy!","Kopieren erfolgreich",0) ;zwar kein fehler aber hört sich besser an
Else
MessageRequester("Copy!","Kopieren fehlgeschlagen!",0) ;hier auch kein fehler siehe oben
End
EndIf
EndIf

[onny]

Danke, habe aber noch eine kleine Frage:
Wie erstelle ich eine lehre datei... Textdokument z.b.
Hallo1.gg oder so?!

[zigapeda]

Code: Alles auswählen

Createfile(0,"C:\Hallo1.gg")
Closefile(0)

[Kiffi]

Code: Alles auswählen

Createfile(0,"C:\Hallo1.gg")
Closefile(0)

Obacht!

CreateFile() liefert einen Rückgabewert, der immer ausgewertet werden
sollte.

Code: Alles auswählen

Ergebnis = CreateFile(#Datei, DateiName$)
If Ergebnis
 ; Dateibezogenes Zeuch...
 CloseFile(Ergebnis)
EndIf

Ist 'Ergebnis' ungleich 0, konnte die Datei angelegt werden, andernfalls ist die
Erstellung fehlgeschlagen. Dies muss immer getestet werden, da das
Ausführen von Operationen auf nicht erstellte Dateien zu schlimmen
Abstürzen führt.

Grüße ... Kiffi