FileDlg [erledigt]

Grafische Primitive, XbaseParts und Darstellungsfragen allgemein.

Moderator: Moderatoren

Antworten
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

FileDlg [erledigt]

Beitrag von Rolf Ramacher »

Hallo zusammen,

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
function FileDlg

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

im filedlg habe ich auch die msgbox(cverz) - kommt auch nicht
hat jemand eine Idee wie ich das abfangen kann ?ß
Zuletzt geändert von Rolf Ramacher am Mo, 20. Jul 2015 16:28, insgesamt 1-mal geändert.
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Benutzeravatar
Manfred
Foren-Administrator
Foren-Administrator
Beiträge: 21165
Registriert: Di, 29. Nov 2005 16:58
Wohnort: Kreis Wesel
Hat sich bedankt: 206 Mal
Danksagung erhalten: 67 Mal

Re: FileDlg

Beitrag von Manfred »

wenn Du abbrichst, müßte das Ergebnis leer sein. Das fragst Du ab und reagierst entsprechend.
Gruß Manfred
Mitglied der XUG Osnabrück
Schatzmeister des Deutschsprachige Xbase-Entwickler e.V.
großer Fan des Xbaseentwicklerwiki https://wiki.xbaseentwickler.de/index.p ... Hauptseite
Doof kann man sein, man muß sich nur zu helfen wissen!!
Benutzeravatar
Rolf Ramacher
Der Entwickler von "Deep Thought"
Der Entwickler von "Deep Thought"
Beiträge: 1930
Registriert: Do, 09. Nov 2006 10:33
Wohnort: Bergheim
Danksagung erhalten: 3 Mal
Kontaktdaten:

Re: FileDlg [erledigt]

Beitrag von Rolf Ramacher »

ich habe es gefunden. If-Abfrage habe ich erweitert.
Gruß Rolf

Mitglied der Gruppe XUG-Cologne
www.xug-cologne.de
Antworten