topic-4120

Board index FiveWin for Harbour/xHarbour does directory exist?

clemerson

Posts: 58

Joined: Fri Mar 10, 2006 08:13 PM

does directory exist?
Posted: Fri Sep 01, 2006 09: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

Posts: 729

Joined: Tue Oct 18, 2005 06:49 PM

does directory exist?
Posted: Fri Sep 01, 2006 09:33 PM

Clemerson

lIsDir(cDirectoryName)

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

Regards

George

Silvio

Posts: 3107

Joined: Fri Oct 07, 2005 06:28 PM

does directory exist?
Posted: Fri Sep 01, 2006 09:34 PM

see this sample :
I hope it good for you

Code: Select all Collapse

 
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

Best Regards, Saludos

Falconi Silvio

clemerson

Posts: 58

Joined: Fri Mar 10, 2006 08:13 PM

does directory exist?
Posted: Mon Sep 04, 2006 02:02 PM

tank's

Clemerson

FiveTech Support Forums

Continue the discussion