Dim iFileCount, FolderName, vFiles, objFSO
iFileCount = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set FolderName = objFSO.GetFolder("C:\Desktop") ' Folder Path
Set vFiles =FolderName.Files
For each vFile in vFiles
Print vFile
iFileCount = iFileCount + 1
Next
msgbox iFileCount
Above code will print names of all the file in given folder and display the total count of files.
iFileCount = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set FolderName = objFSO.GetFolder("C:\Desktop") ' Folder Path
Set vFiles =FolderName.Files
For each vFile in vFiles
Print vFile
iFileCount = iFileCount + 1
Next
msgbox iFileCount
Above code will print names of all the file in given folder and display the total count of files.
ReplyDeleteThank you for your so cool post,it is useful,i love it very much.please share with us more good articles.
QTP Training in Chennai
QTP Course in Chennai
QTP Training in Tambaram
QTP Training in OMR
LoadRunner Training in Chennai
Best Loadrunner training institute in chennai
javascript training in chennai
core java training in chennai
Thanks for sharing nice information with us. i like your post and all you share with us is uptodate and quite informative, i would like to bookmark the page so i can come here again to read you, as you have done a wonderful job. word counter
ReplyDelete