Seite 1 von 1
Datei finden und kopieren!
Verfasst: 27.04.2005 17:53
von 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
Verfasst: 27.04.2005 18:07
von 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
Verfasst: 27.04.2005 18:20
von onny
Danke, habe aber noch eine kleine Frage:
Wie erstelle ich eine lehre datei... Textdokument z.b.
Hallo1.gg oder so?!
Verfasst: 27.04.2005 18:25
von zigapeda
Verfasst: 27.04.2005 20:26
von Kiffi
zigapeda hat geschrieben:
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
Onlinehilfe hat geschrieben:
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