does directory exist?

clemerson · Post by **clemerson** » Fri Sep 01, 2006 9:02 pm

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

George · Post by **George** » Fri Sep 01, 2006 9:33 pm

Clemerson

lIsDir(cDirectoryName)

return .T. if exist, else return .F.

Regards

George

Silvio · Post by **Silvio** » Fri Sep 01, 2006 9:34 pm

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

clemerson · Post by **clemerson** » Mon Sep 04, 2006 2:02 pm

tank's

Clemerson