does directory exist?

[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

[George]

Clemerson

lIsDir(cDirectoryName)

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

Regards


George

[Silvio]

see this sample :
I hope it good for you

Code: Select all  Expand view


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]

tank's

Clemerson