Page 1 of 1
does directory exist?
Posted: Fri Sep 01, 2006 9:02 pm
by clemerson
Hi,
Which the best form for a directory to be seen exists?
example:
C:\BA
* he doesn't have any file in this directory
Clemerson
Posted: Fri Sep 01, 2006 9:33 pm
by George
Clemerson
lIsDir(cDirectoryName)
return .T. if exist, else return .F.
Regards
George
Posted: Fri Sep 01, 2006 9:34 pm
by Silvio
see this sample :
I hope it good for you
Code: Select all
cIni :=GetWinDir()+"\Classroom.Ini"
cTem :=GetPvProfString("Classroom","DirDat","",cIni)
cDir :=IF(!Empty(cTem),LFN2SFN(cTem),cTem)
cNSys:="ClassRoom"
IF !Empty(cPar) .AND. cPar=="/L"
cPath:=CurDrive()+":\"+CurDir()+"\"
ELSE
cPath:=IF(!Empty(cDir),cDir,"\"+CurDir()+"\")
ENDIF
IF Empty(cTem)
cPath:=CurDrive()+":\"+CurDir()+"\"
WritePProString(cNSys,"DirDat",cPath,cIni)
ENDIF
Posted: Mon Sep 04, 2006 2:02 pm
by clemerson
tank's
Clemerson