Microsoft KB Archive/254889
Article ID: 254889
Article Last Modified on 1/27/2007
- Microsoft Office 2000 Premium Edition
- Microsoft Office 2000 Professional Edition
- Microsoft Office 2000 Standard Edition
- Microsoft Office 2000 Developer Edition
- Microsoft Office 2000 Small Business Edition
- Microsoft Excel 2000 Standard Edition
- Microsoft Outlook 2000 Standard Edition
- Microsoft PowerPoint 2000 Standard Edition
- Microsoft Word 2000 Standard Edition
- Microsoft Access 2000 Standard Edition
- Microsoft FrontPage 2000 Standard Edition
This article was previously published under Q254889
The following symptom occurs with Microsoft Visual Basic for Applications code that relies on the Dir function to return an empty string as the termination condition of a file-processing loop: The code runs endlessly if the files are modified while the loop is being run.
The Dir function is not returning a zero-length string ("") when called repeatedly against a changing list of files. The list of files in a folder will change if your macro modifies any of the files in the folder.
Microsoft provides programming examples for illustration only, without warranty either expressed or implied, including, but not limited to, the implied warranties of merchantability and/or fitness for a particular purpose. This article assumes that you are familiar with the programming language being demonstrated and the tools used to create and debug procedures. Microsoft support professionals can help explain the functionality of a particular procedure, but they will not modify these examples to provide added functionality or construct procedures to meet your specific needs. If you have limited programming experience, you may want to contact a Microsoft Certified Partner or the Microsoft fee-based consulting line at (800) 936-5200. For more information about Microsoft Certified Partners, please visit the following Microsoft Web site:
For more information about the support options that are available and about how to contact Microsoft, visit the following Microsoft Web site:
You can work around this behavior by avoiding the use of a zero-length string as the termination condition of the file-processing loop. As an example of this approach, follow these steps:
- If it does not already exist, create the folder C:\Temp\Testfiles.
- In that folder, create two Word documents, Temp1.doc and Temp2.doc.
- Start Microsoft Word and press ALT+F11 to start the Visual Basic Editor.
- On the Insert menu, click Module.
In the new module, enter the following lines of code:
Sub WorkAround() Dim i As Integer Dim docDoc As Document With Application.FileSearch .LookIn = "c:\temp\testfiles\" .FileName = "*.doc" .Execute For i = 1 To .FoundFiles.Count msgbox "File #" & i & " is " & .FoundFiles(i) 'use the file here Set docDoc = Documents.Open(FileName:=.FoundFiles(i)) 'dirty the doc and force it to be saved docDoc.Range.InsertAfter "test" docDoc.Close (wdSaveChanges) Next i End With End Sub
Click anywhere in the following code line
and then press F8 repeatedly to step through the procedure. Notice that the procedure terminates after processing the two files.
Microsoft has confirmed that this is a problem in the Microsoft products that are listed at the beginning of this article.
The Dir function returns a string containing the name of the first file that it finds to match the pattern identified by its <pathname> argument.
The syntax of the Dir function is
The pathname may include the wildcards * or ? to specify a collection of files. To get any additional file names that match pathname, call Dir again with no arguments. Provided that the collection of files is not being modified during the process, Dir returns a zero-length string ("") after the last matching file has been identified.
If files in the collection are modified while a loop listing them is taking place however, the modified files will reappear in the list, and the Dir function may never return a zero-length string. As a result, loops that rely on finding a zero-length string as their termination condition may iterate endlessly.
For more information about the Visual Basic for Applications Dir function, in the Visual Basic Editor, click Microsoft Visual Basic Help on the Help menu, type dir in the Office Assistant or the Answer Wizard, and then click Search to view the topic.
Additional query words: OFF2000
Keywords: kbbug kbfix KB254889