All Files from Folder

Sub Net_Settelment()
Dim fso As Object
Dim fso_Folder As Object
Dim fso_file As Object

Set fso = CreateObject("Scripting.FileSystemObject") ' Created my Environment to write script
Set fso_Folder = mycomputer.GetFolder("F:\Rajan\Contacts\")
For Each fso_file In fso_Folder.Files
    Debug.Print fso_file.Name
Next

Set fso = Nothing
Set fso_Folder = Nothing
Set fso_file = Nothing
End Sub
Total Page Visits: 31 - Today Page Visits: 1

Leave a Reply