Function FolderExists(ByVal FolderSpec As String) Export As Long
Local hDir As Long
Local FindData As WIN32_FIND_DATA
FindData.dwFileAttributes = %FILE_ATTRIBUTE_DIRECTORY
hDir = FindFirstFile(ByVal StrPtr(FolderSpec), FindData)
If Bit(FindData.dwFileAttributes, 4) = 1 Then Function = %TRUE
If hDir = %INVALID_HANDLE_VALUE Then
Exit Function 'file not found
End If
FindClose hDir
End Function
'
'
'
'If that fails, go with this....I would test it, I can't remember if it's 100% functional but I think it is....
You'll need to do subfolders as well..
Function GetDirList(CurrentDir As String,wFileSpec As String,LfnOrSfn As Long) Export As String
Local x As Long
Local wCount As Long
Local hDir As Long
Local f As String
Local sTmp As String
Local St As String
Local ShortName As Asciiz * 64
Local LongName As Asciiz * 64
Local l_FileSpec As String
Local FindData As WIN32_FIND_DATA
If Len(wFileSpec) = 0 Then
If Right$(CurrentDir,1) = "\" Then CurrentDir = Left$(CurrentDir,Len(CurrentDir) - 1) 'Remove rigt "\"
l_FileSpec = CurrentDir + "\*.*"
Else
l_FileSpec = CurrentDir + "\" + wFileSpec
End If
FindData.dwFileAttributes = %FILE_ATTRIBUTE_DIRECTORY
hDir = FindFirstFile(ByVal StrPtr(CurrentDir), FindData)
If hDir = %INVALID_HANDLE_VALUE Then 'Directory did not exist
Function = "File or directory does not exist"
Exit Function
Else
sTmp = "Directory of " + CurrentDir + "\" + $CRLF
FindData.dwFileAttributes = %FILE_ATTRIBUTE_NORMAL Or %FILE_ATTRIBUTE_ARCHIVE Or %FILE_ATTRIBUTE_READONLY
hDir = FindFirstFile(ByVal StrPtr(l_FileSpec), FindData)
If IsFalse LfnOrSfn Then 'Use Long File Name otherwise use short name
LongName = FindData.cFileName
GetShortPathName LongName,ShortName, 63
FindData.cFileName = ShortName
End If
If hDir = %INVALID_HANDLE_VALUE Then
Function = "File not found"
Exit Function
End If
Do
If FindData.cFileName = "." Or FindData.cFileName = ".." Then Iterate
Incr wCount
If FindData.dwFileAttributes = %FILE_ATTRIBUTE_DIRECTORY Then
If IsFalse LfnOrSfn Then 'Use Long File Name
LongName = FindData.cFileName
If IsTrue GetShortPathName(LongName,ShortName, 63) Then FindData.cFileName = ShortName
End If
FindData.cFileName = "<" + FindData.cFileName + ">"
Else
sTmp = sTmp + PadString(Left$(FindData.cFilename,25),25,32) + " " + _
PadString(Format$(FindData.nFileSizeLow,"###,###,###"),15,32) + " " + _
padstring(FileDateTime(FindData),15,32) + $CRLF
End If
Loop While FindNextFile(hDir, FindData)
End If
FindClose hDir
Function = sTmp
End Function
'-----------------------------------------------------------------------------------
#compile exe
#include "win32api.inc"
#include "scandir.inc" ' download: [url="http://www.powerbasic.com/support/pbforums/showthread.php?t=23120"]http://www.powerbasic.com/support/pbforums/showthread.php?t=23120[/url]
$targetfolder = "c:\winnt"
global foldersize as ext
' user-defined callback function defining the criteria of the scan
function scanfunc(byval file as string, byval path as string) as long
local hfile as long, fd as win32_find_data
hfile = findfirstfile(path + "\" + file, fd )
if hfile = %invalid_handle_value then exit function
findclose hfile
foldersize = foldersize + fd.nfilesizelow
end function
function pbmain
scandir $targetfolder, codeptr(scanfunc), %true
msgbox "size of folder '" + $targetfolder + "' is " + format$(foldersize) + " bytes"
end function
#compile exe
#include "win32api.inc"
#include "scandir.inc" ' download: [url="http://www.powerbasic.com/support/pbforums/showthread.php?t=23120"]http://www.powerbasic.com/support/pbforums/showthread.php?t=23120[/url]
$targetfolder = "c:\winnt"
global foldersize as ext
' user-defined callback function defining the criteria of the scan
function scanfunc(wfd as win32_find_data) as long
foldersize = foldersize + wfd.nfilesizelow
end function
function pbmain
scandir $targetfolder, codeptr(scanfunc), %true
msgbox "size of folder '" + $targetfolder + "' is " + format$(foldersize) + " bytes"
end function
Comment