Comments on: VBA: List of all files contained within a Directory

By: defcon

defcon — Thu, 30 Jun 2011 12:07:49 +0000

Dim Row_No As Integer
Dim No_Of_Files As Integer
Dim kk25 As Integer
Dim File_Path As String
Dim sPingcmd As String
Dim taskID

File_Path = Sheets(“Sheet1″).Range(“A1″).Value

Row_No = 36

Range(“A3:A500″).Clear

‘Lists all the files in the current directory

With Application.FileSearch
.NewSearch
.LookIn = File_Path
.Filename = “*.*”
.SearchSubFolders = True
.Execute

No_Of_Files = .FoundFiles.Count

For kk25 = 1 To No_Of_Files
If InStr(1, .FoundFiles(kk25), “[www.songs.pk]“) > 0 Then
Worksheets(“Sheet1″).Cells(kk25 + 2, 1).Value = .FoundFiles(kk25)
End If
Next kk25

End With

For kk25 = 1 To No_Of_Files
sPingcmd = Worksheets(“Sheet1″).Cells(kk25 + 2, 3).Value
If sPingcmd “” Then
Call Shell(“cmd /K ” & sPingcmd, vbHide)

If kk25 > 9 And kk25 Mod 10 = 0 Then
Call Shell(“cmd /K taskkill /IM cmd.exe “, vbHide)
End If

End If
Next kk25

Call Shell(“cmd /K taskkill /IM cmd.exe “, vbHide)

=IF(ISERROR(FIND(“[www.songs.pk]“,A3,1)),”",SUBSTITUTE(A3,LEFT(A3,FIND(“[www.songs.pk]“,A3,1) + 13),”"))

=IF(A3=”",”",CONCATENATE(“ren “,”"”" & A3 & “”"”, ” “, “”"” & B3 & “”"”))

By: Badminton

Badminton — Thu, 10 Feb 2011 19:09:38 +0000

Thanks for pointing out Scripting.FileSystemObject guys.

By: John Walkenbach

John Walkenbach — Sun, 14 Sep 2008 00:39:58 +0000

Keep in mind that the FileSearch object is no longer available in Office 2007. So this code works only with earlier versions.

You can use the old Dir command or FileSystemObject.

By: Randy Harmelink

Randy Harmelink — Sun, 14 Sep 2008 00:37:52 +0000

Just to note that Application.FileSearch no longer exists in EXCEL 2007.

By: JP

JP — Sat, 13 Sep 2008 18:32:00 +0000

Keep in mind this will only work pre-Excel 2007. Check out the Scripting.FileSystemObject for a way you can do this in all Excel versions.

-JP