ich bin gerade dabei eine Datenrücksicherung einzubauen. Klappt auch alles. Nur wenn ich bei der Auswahl einer Datei auf Abbruch klicke wird trotzdem die Rücksicherung begonnen.
auch die msgbox erscheint nicht
hier der aufruf des filedlg
Code: Alles auswählen
#include "directry.ch"
Function Ruecksicherung(oDlg,oAst)
Local aDir:={}, cQuellPfad:="", cPfad:="", cRueckPfad:=""
use Dasi New
cRueckPfad:=alltrim(Dasi->Quelle)
Close Dasi
cPfad:=FileDlg(oDlg)
msgbox(cPfad)
If !empty(cPfad)
nPos:=RAt("\",cPfad)
cQuellPfad:=substr(cPfad,1,nPos-1)
Endif
aDir:=GetAllFiles(cQuellPfad,"*.*",.t.)
Sichern(oAst,aDir,cQuellPfad,cRueckPfad,"rueck")
Return Nil
Code: Alles auswählen
#include "Gra.ch"
#include "Xbp.ch"
#include "Appevent.ch"
#include "Font.ch"
#include "Inkey.ch"
#include "xbpdev.ch"
#pragma Library( "XppUI2.lib" )
#Define CRLF Chr(13)+Chr(10)
Function FileDlg(oDlg)
LOCAL nEvent, mp1, mp2, oXbp, oFileDlg, cVerz:=""
oFileDlg := XbpFileDialog():new()
oFileDlg:create(oDlg )
oFileDlg:restoreDir:=.t.
cVerz:=oFileDlg:open()
RETURN cVerz
hat jemand eine Idee wie ich das abfangen kann ?ß