Pulling a list of Microsoft file filenames into excel

[sc9be]

Hi,
I am pretty new to VBA – I am looking to pull various Microsoft office file (word, access, powerpoint, publisher, excel) - filenames into excel cells and maybe even PDF files too.
I wish to select multiple files for example Powerpoint presentations – named “A001-04-11.ppt” and “A002-04-11.ppt” and I wish to pull please these names into cells A1 and A2 respectively showing there file names.
Is there a way I can do this please, I would be most grateful for any help
Sc9be

 

[ravishankar]

Hi
Paste the following codes in the macro window ( Alt F11) and run the macro. It will pull all word, excel, powerpoint, text, access, pdf files to col A to F
Ravi

Sub list_files()
Dim a As Long
Dim f As String, b As String
Cells(1, 1) = "=cell(""filename"")"
Cells(1, 2) = "=left(A1,find(""["",A1)-1)"
For a = 1 To 6
b = Choose(a, "*.doc", "*.xls", "*.ppt", "*.txt", "*.pdf", "*.mdb")
Cells(2, a) = b
Cells(3, a).Select
f = Dir(Cells(1, 2) & b)
Do While Len(f) > 0
ActiveCell.Formula = f
ActiveCell.Offset(1, 0).Select
f = Dir()
Loop
Next a
MsgBox "Listing is complete"
End Sub