option explicit
private fs as Object ' declared for filesystem object
private flds as Object ' declared for main folder object
private fld as Object ' declared for folder object
private fl as Object ' declared for file object
private sub ListFolderAndFiles(pathname as String)
create file system object
set fs=CreateObject("Scripting.FileSystemObject")
'exit if fails to create file system object
if fs is nothing then exit sub
' exit is folder does not exists in the pathname
if not fs.isFolderExists(pathname) then
msgbox "Ivalid path or folder name"
exit sub
end if
' Set the folder object from the specified path
set flds=fs.GetFolder(pathName)
' exit if failed to create folder object
if not flds is nothing then exit sub
' enumerate through all folders in the parent folder
for each fld in flds.Folder
' enumerate through all files in the folder
for each fl in fld.Files
' add filename along with it's containing folder name in the listbox
call list1.AddItem(fld.Name & "-" & fl.Name)
next fl
next fld
'release object from memory
set flds=nothing
set fl=nothing
set fs=nothing
End Sub
Private Sub Form_Load()
' Calling procedure
call ListFolderAndFiles("c:\MyLibrary")End Sub
private fs as Object ' declared for filesystem object
private flds as Object ' declared for main folder object
private fld as Object ' declared for folder object
private fl as Object ' declared for file object
private sub ListFolderAndFiles(pathname as String)
create file system object
set fs=CreateObject("Scripting.FileSystemObject")
'exit if fails to create file system object
if fs is nothing then exit sub
' exit is folder does not exists in the pathname
if not fs.isFolderExists(pathname) then
msgbox "Ivalid path or folder name"
exit sub
end if
' Set the folder object from the specified path
set flds=fs.GetFolder(pathName)
' exit if failed to create folder object
if not flds is nothing then exit sub
' enumerate through all folders in the parent folder
for each fld in flds.Folder
' enumerate through all files in the folder
for each fl in fld.Files
' add filename along with it's containing folder name in the listbox
call list1.AddItem(fld.Name & "-" & fl.Name)
next fl
next fld
'release object from memory
set flds=nothing
set fl=nothing
set fs=nothing
End Sub
Private Sub Form_Load()
' Calling procedure
call ListFolderAndFiles("c:\MyLibrary")End Sub
No comments:
Post a Comment