I have bunch if power point files in a folder C:\123
I want to list each slide in those powerpoint files in the
excel sheet alongwith full path and filename. Is it
possible?

Regards,
Malcom

Howdy Malcom
I'm in no position to provide code to use, however if you go he
http://groups-beta.google.com/group/...l.programming/
and search (using the second search field - ie. search within this
newsgroup)
on 'listing files' there is tonnes of relevant examples eg.
http://groups-beta.google.com/group/...g+files&qt_g=1
HTH
Matt

"Malcom Jazz" wrote in message
...
I have bunch if power point files in a folder C:\123
I want to list each slide in those powerpoint files in the
excel sheet alongwith full path and filename. Is it
possible?

Regards,
Malcom

Malcolm,

Here is some code to do it


Sub FileListing()
Dim i As Long
Dim oFolder As Object
Dim oFldr As Object
Dim oFile As Object
Dim oFiles As Object
Dim sOld As String

Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.GetFolder("C:\myTest")

a = 2
For Each oFldr In oFolder.subFolders
Set oFiles = oFolder.Files
For Each oFile In oFiles
If oFile.Type = "Microsoft Powerpoint Presentation" Then
sOld = oFile.Name
Range("A" & a) = sOld
a = a + 1
End If
Next oFile
Next oFldr

End Sub

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Malcom Jazz" wrote in message
...
I have bunch if power point files in a folder C:\123
I want to list each slide in those powerpoint files in the
excel sheet alongwith full path and filename. Is it
possible?

Regards,
Malcom