how i can add a progress bar with this code ?, anybody can help me?
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
Recent comments
5 years 34 weeks ago
6 years 20 weeks ago
6 years 32 weeks ago
6 years 35 weeks ago
6 years 36 weeks ago
6 years 42 weeks ago
6 years 50 weeks ago
6 years 50 weeks ago
6 years 50 weeks ago
6 years 50 weeks ago