Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

    if empty(::ImportVerzeichnis)
       cDatei := GetFilenameOpen("Eine Importdatei aus gewnschtem Import Verzeichnis w„hlen",.t.,DatenVerzeichnis()+"import\*.txt")
       if ! empty(cDatei)
          if rat("\",cDatei) > 3
             ::ImportVerzeichnis := GetPath(cDatei)
          else
             ErrBox("Keine Datei gew„hlt, Abbruch.")
          endif
       endif
    endif


*---------------------------------------------------------------------------------------
function GetPath(cDatei)
   local x
   x := rat("\",cDatei)
   if x > 3
      cDatei := left(cDatei,x) // mit \ am Ende
   endif
return alltrim(cDatei)
*---------------------------------------------------------------------------------------
*-------------------------------------------------------------
FUNCTION GetFilenameOpen(cTitle,lCenter,cFilter,aFileFilters) // aFileFilters nur Win32
   local oFileDlg, cFile, cAltCurDir, cAltCurDrive, cFilterOhnePfad

   DEFAULT cTitle  TO "™ffnen ..."
   DEFAULT lCenter TO .t.
   DEFAULT cFilter TO "*.*"

   * Wegen PDR in 2.00.785 center verhindern.
   lCenter := .f.

   do case
      case "\" $ cFilter
           cFilterOhnePfad := substr(cFilter,rat("\",cFilter)+1 )
      case ":" $ cFilter
           cFilterOhnePfad := substr(cFilter,rat(":",cFilter)+1 )
      otherwise
           cFilterOhnePfad := cFilter
   endcase
   DEFAULT aFileFilters TO     { { cFilterOhnePfad , cFilterOhnePfad } }

   cAltCurDrive  := CurDrive()
   cAltCurDir    := CurDir()

   oFileDlg := XbpFileDialog():new()
   oFileDlg:center      := lCenter
   oFileDlg:title       := cTitle
   oFileDlg:FileFilters := aFileFilters
   oFileDlg:create()

   cFile := oFileDlg:open(cFilter)

   oFileDlg:destroy()
   // Pfad wieder herstellen
   if left(cAltCurDir,2)="\\" // UNC-Name
      CurDrive(cAltCurDir)
      CurDir(cAltCurDir)
   else
      CurDrive(cAltCurDrive)
      CurDir(cAltCurDrive+":\"+cAltCurDir)
   endif

return cFile

Code: Alles auswählen

oSle2:lbDblClick := {| MP1, uNIL, o| oSle2:setdata(SuchePfad(o:editbuffer(),oXbp0,@o)),;
		sik_zus1:= oSle2:Getdata() }

FUNCTION SuchePfad(istammpfad, oParent)
LOCAL oFileDlg, cPathName, nPosi := 0
LOCAL orgpfad:=iStammpfad 
LOCAL aSize, aRefsize, aPos
aSize    := {588,296}
aRefSize:=oParent:currentSize()
aPos:= { Int( (aRefSize[1] - aSize[1]) / 2 ) ;
   , Int( (aRefSize[2] - aSize[2]) / 2 ) }


oFileDlg := XbpFileDialog():new( oParent, , aPos, aSize, , .F.)
***oFileDlg := XbpFileDialog():new()

//   oFileDlg:center := .T.   // da sind sonst die Linkfavoriten weg
oFileDlg:title := "W„hlen Sie den entsprechenden Ordner aus"
oFileDlg:fileFilters := {}
oFileDlg:restoreDir := .t.
oFileDlg:create()
if .not. right(iStammpfad, 1) == "\"
   iStammpfad += "\"
endif
iStammpfad += "Enter oder ™ffnen "
cPathName := oFileDlg:open(iStammpfad)
if cPathname = NIL
	 iStammpfad:=orgpfad
	 RETURN (istammpfad)
endif
cPathname:=Left( cPathname, RAt( "\", cPathname )  ) 
RETURN (cPathName)

Code: Alles auswählen

CreateObject( "Shell.Application" )

Code: Alles auswählen

#xtranslate ITaskbarList_uuidof()                                          => UuidFromString("56FDF342-FD6D-11d0-958A-006097C9A090")
#xtranslate ITaskbarList_QueryInterface( <pi>, [<params,...>])             =>  IFpQCall( 0,"__sl__sl__pt_@sl",<pi> [,<params>] )
#xtranslate ITaskbarList_AddRef( <pi>)                                     =>  IFpQCall( 1,"__sl__sl",<pi>)