Code: Alles auswählen
*************************
FUNCTION AppPath()
*************************
// liefert den Programmpath
return ( FPATH(AppName(.t.),1) )
**********************
FUNCTION FPATH (cDat, nNr)
**********************
/* zerlegt cDat in aRet:={ Path, Name, Extension, , , , , WinDateiname, HTML-Dateiname}
* if nNr in [1, 2, 3] dann wir aRet[nNr] als String geliefert
* 15.10.2006 if nNr = 6 aus .\HTML\ wird AppPath()+\HTML\
* 25.06.2003 if nNr = 4 .or. 23 dann aRet= 'Name+"."+ Extension'
* 25.07.2003 if nNr = 5 .or. 12 dann aRet= 'LW + Name'
* 20.01.2004 if nNr = 8 '"' + "C:\\Eigene Dateien\\Handbuch.doc" + '"' Lange Dateinamen
* 09.03.2006 if nNr = 9 Aufbereitung für Browser und HTML-Seiten "///c:/xbase/source/WinHansa/losansky.png"
*/
LOCAL aRet:={"", "", "", "", "", "", "", "",""}, nPos:=0, cFile:=cDat
LOCAL aT:={}
cDat:=alltrim(cDat)
if nNr=6
// Parameterdatei .\HTML\ manche Programme brauchen c:\xbase\source\pkonto\html\
if substr(cDat, 1, 2)= ".\"
cDat:= AppPath()+substr(cDat, 3)
endif
aRet[6] := cDat
endif
if nNr=23; nNr:=4; endif
if nNr=12; nNr:=5; endif
if nNr=8 // Dateinamen mit Leer- und Sonderzeichen
aRet[8]:= StrTran (cDat, "/", "\")
if "\\" $ aRet[8]
// 21.09.2004 wegen \\server\freigabe
aRet[8]:= '"' +ConvToAnsiCP(aRet[8]) + '"'
else
aRet[8]:= '"' +ConvToAnsiCP(StrTran (aRet[8], "\", "\\")) + '"'
endif
endif
if nNr=9 // für HTML
aRet[9]:= StrTran (cDat, "\", "/")
if substr(aRet[9], 1, 1 )#"/"
aRet[9]:= "///"+aRet[9]
endif
endif
if (nPos:=rat("\", cDat) ) # 0
if nPos==len(cDat) // keine Datei nur Verzeichnis
aRet[1]:=cDat
cDat:=""
else
aRet[1]:=subst(cDat, 1, nPos)
cDat:=substr (cDat, nPos+1, 200) // Path abschneiden
endif
endif
if (nPos:=rat(".", cDat) ) # 0
aRet[3] :=substr (cDat, nPos+1,200) // Extension
cDat:= substr(cDat, 1, nPos-1)
endif
aRet[2]:=cDat // der Rest sollte Dateiname sein
aRet[4]:=aRet[2]+iif(empty(aRet[3]), "", "."+aRet[3])
aRet[5]:=aRet[1]+aRet[2]
return (iif(nNr#NIL, aRet[nNr], aRet) )
*****************
FUNCTION ISDIR (cPath, bNeu)
*****************
// 24.01.2006 fehlende Verzeichnisse werden ohne Nachfrage angelegt
// 05.12.2005 wechselt zu Verzeichnis isdir:= ISDIR(".\HTML\") und giebt das "alte" zurück
// Laufverk und Verzeichnis kommt zurück
// bei Freigaben auf MSMÜLL klappt isdir:= CurDrive()+":\"+ CurDir() nicht !!!!
// 17.10.2006 LOCAL cDir := iif (CurDrive()="\", "", CurDrive()+":\")+ CurDir()
LOCAL cDir := iif (empty(CurDrive()), "", CurDrive()+":\")+ CurDir()
DEFAULT bNeu TO .f.
if cPath # NIL .and. ! empty(cPath)
if FExists (cPath, "D")
CurDir(cPath)
else
if bNeu
cDir:= MDIR (cPath)
CurDir(cPath)
else
MsgBox ("Das Verzeichnis [ "+cPath+" ] ist nicht zu finden... ", "IsDir ()")
endif
endif
endif
return(cDir)
*****************
FUNCTION MDIR (cDir)
*****************
* MakeDir erstellt Verzeichnis wenn nicht vorhanden
* Rückgabe Verzeichnis oder "" wenn Pech gehabt
LOCAL cRet:=""
if empty(cDir); cRet := IsDir()
else
// "/\" am Ende abschneiden
do while substr(cDir, len(cDir), 1) $ "/\"
cDir:=substr(cDir, 1, len(cDir)-1)
endd
cDir := FPATH (cDir, 6)
if ! FExists (cDir, "D")
RunShell ("/C MD "+cDir,,,.t.)
endif
if FExists (cDir, "D"); cRet:=cDir
else; MsgBox ("Das Verzeichnis [ "+cDir+" ] konnte nicht angelegt werden !", "MDir ()")
endif
endif
return(cRet)
weil sie so trivial und banal sein dürfte. Trotzdem stelle ich sie hier, da ich keine Lust habe, hier weitere Tage und Wochen mit herumzu experimentieren.
