Function FSO_FileExists(ByVal FileSpec$)Export As Long Local fd As WIN32_FIND_DATA Local fAttr As Dword Local hFind& If Len(FileSpec$)= 0 Then Function = %false:Exit Function hFind& = FindFirstFile(ByVal StrPtr(FileSpec$), fd) If hFind& = %INVALID_HANDLE_VALUE Then Function = %False:Exit Function Call FindClose(hFind&) fAttr = fd.dwFileAttributes Function = %True 'NotDirectory|NotTemporary If (Bit(fAttr, 4)=1) Or (Bit(fAttr,8)=1) Then Function = %false End Function
Tweet
if EXISTS(File) then
open File for binary as #1
end if
FUNCTION Exist(file AS STRING) EXPORT AS INTEGER FUNCTION = LEN( DIR$(file, 17) ) > 0 END FUNCTION
Error 480 in C:\Documents and Settings\Administrator\My Documents\hunter.bas(42:030): Parameter mismatches definition Line 42: IF Exist(Listing(idx)) THEN
TESTD = PathIsDirectoryA(BYCOPY TMPNAME) ? STR$(TESTD) + " ASC" IF TESTD = 16 OR TESTD = 8208 THEN ' ELSE ? " This IS not A Folder _ Directory " END IF TESTE = PathIsDirectoryEmptyA(BYCOPY TMPNAME) If TESTE = 0 OR TESTE = 8224 Then ? " Folder _ Directory is NOT Empty " EXIT Function ELSE ' RmDir TmpName '?"EMPTY" End If Close
#COMPILE EXE
#DIM ALL
FUNCTION PBMAIN() AS LONG
LOCAL wsName AS WSTRING
wsName = "ABE"
? IsFileOrFolder(wsName)
END FUNCTION
FUNCTION IsFileOrFolder(s AS WSTRING) AS WSTRING
LOCAL lresult AS LONG
IF ISFILE(s) THEN
lresult = 1 'file
ELSE
IF ISFOLDER(s) THEN
IF DIR$(s & "\*.*",%HIDDEN OR %SYSTEM OR %SUBDIR) = "" THEN
lresult = 2 ' empty folder
ELSE
IF DIR$(s & "\*.*",%HIDDEN OR %SYSTEM) = "" THEN
lresult = 3 ' folder, has subfolder but no files
ELSE
lresult = 4 ' folder has files
END IF
END IF
END IF
END IF
FUNCTION = s & " is " & CHOOSE$(lResult," a File","an Empty Folder","a Folder with sub folders but no files","a Folder containing files" ELSE "Neither a file nor a folder")
END FUNCTION
'
Comment