PureBasic Forums - English

Code: Select all

Macro FileExists(Fname)
  ;  0 = File or Folder does not exist
  ;  1 = File Exists
  ; -1 = Folder Exists
  ; Since FileSize() returns:
  ;       -1 = File Not found.
  ;       -2 = File is a directory.
  ;        0 = Empty File, > 1 = File Exists
  ;        FileSize() respects '*' wildcards and reports results accordingly.
  FileSize(Fname) + 1
EndMacro  

Define.i fn
CreateDirectory("c:\z~z\")
fn=CreateFile(0,"c:\z~z\1.txt"): CloseFile(0)
fn=CreateFile(0,"c:\z~z\2.txt"): CloseFile(0)

Debug " - File(s) or Folder Exists? - "
Debug FileExists("c:\zz~z\")      ;  0 = Not a Folder 
Debug FileExists("c:\z~z\*.*")    ; -1 = Valid Folder
Debug FileExists("c:\z~z\*.txt")  ;  1 = Valid File(s)
Debug FileExists("c:\z~z\1.txt")  ;  1 = Valid File
Debug FileExists("c:\z~z\3.txt")  ;  0 = Not a File
Debug FileExists("c:\z~z\*.csv")  ;  0 = File(s) Not Found
Debug FileExists("c:\z~z\?,3")    ;  0 = File Not Found
;DeleteDirectory("c:\z~z\", "*.*", #PB_FileSystem_Recursive)