Loop File Names

[lq495]

I need to be able to loop through and capture the file name of all .vsd files
in the current directory. This code gets the file name but doesn't loop
correctly.

Sub FileNameTOC()

Dim CurFileName As String
Dim currentDoc As String
Dim PathFileName As String
Dim PathName As String

currentDoc = ActiveDocument.Name

' Set the default pathname
PathName = CurDir & "\"
PathFileName = PathName & "*.vsd"


' This variable holds the file name
'CurFileName = Dir(PathFileName)

'Loop through each file name
'or Do while CurFileName <>""
While CurFileName <> ""
Debug.Print CurFileName
CurFileName = Dir(PathFileName)
Wend

How can i get the loop to work correctly?

 

[John Goldsmith_Visio_MVP]

Hello lq,

Try out the 'Running through all files in a folder' example here:

http://visualsignals.typepad.co.uk/vislog/2007/11/looping-through.html

Best regards

John


John Goldsmith (Visio MVP)
www.visualSignals.typepad.co.uk
www.visualSignals.co.uk

 

[John... Visio MVP]

When you use the DIR command, you use the PathFileName parameter only to get
the first file name. When you want subsequent file names you omit it and
just use DIR():

CurFileName = Dir(PathFileName)
While CurFileName <> ""
CurFileName = Dir()
Wend

John... Visio MVP