Dim objFSO As Object
Dim objFolder As Object
Dim count As Long
Dim Path As String
Dim ws As Worksheet
ws.Select
ws.Unprotect
Range("D4:E2000").Select
Selection.Clear
Path = Sheet1.Range("H3")
If Sheet1.Range("H3") = "" Then
MsgBox "No Room or Path ware Founded"
Exit Sub
End If
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Path)
count = 4
For Each objFSO In objFolder.Files
ws.Cells(count, 4).Value = objFSO.Name
ws.Cells(count, 5).Value = objFSO.Path
count = count + 1
Next
End sub
