Count how many files in a folder, with no loop, faster if you just need all types of files in that folder.
For more advanced version check FilesIn_Count
Function FilesCount_Swift(dFolder)
Set fs = CreateObject("Scripting.FileSystemObject")
fileCount = 0
' myDir = Server.MapPath(HTMLFolder) ' "C:\DATA\Sourcefiles\Department2\"
Set folder = fs.GetFolder(dFolder)
Set Files = folder.Files
FilesCount_Swift = Files.Count
Set fs = Nothing
Set folder = Nothing
Set Files = Nothing
End Function
Set fs = CreateObject("Scripting.FileSystemObject")
fileCount = 0
' myDir = Server.MapPath(HTMLFolder) ' "C:\DATA\Sourcefiles\Department2\"
Set folder = fs.GetFolder(dFolder)
Set Files = folder.Files
FilesCount_Swift = Files.Count
Set fs = Nothing
Set folder = Nothing
Set Files = Nothing
End Function
HTMLFolder (Unmapped location as in "/images/")
Views 3,082
Downloads 1,083
CodeID
DB ID