macro doesn't do anything
It will list the files in the folder H:\AllDocs\CFSR PIP DD\
In the VBE, go to View and select immediate window. This should open a
window at the bottom of the VBE. The output of the code will be placed
there.
--
Regards,
Tom Ogilvy
"davegb" wrote in message
oups.com...
I got this macro from Chip in reply to a post I made about going
through the sheets in a workbook. Can anyone tell me what it's supposed
to do, and why it isn't doing anything? Thanks.
Sub AAA()
Dim F As Scripting.file
Dim FF As Scripting.Folder
Dim FSO As Scripting.FileSystemObject
Set FSO = New Scripting.FileSystemObject
Set FF = FSO.GetFolder("H:\AllDocs\CFSR PIP DD\")
For Each F In FF.Files
Debug.Print F.Path
Next F
End Sub
|