Microsoft KB Archive/112674

= How To Determine If a File Exists by Using DIR$ =

Article ID: 112674

Article Last Modified on 7/1/2004

-

APPLIES TO


 * Microsoft Visual Basic 5.0 Professional Edition
 * Microsoft Visual Basic 5.0 Enterprise Edition
 * Microsoft Visual Basic 4.0 16-bit Enterprise Edition
 * Microsoft Visual Basic 4.0 32-Bit Enterprise Edition
 * Microsoft Visual Basic 3.0 Professional Edition
 * Microsoft Visual Basic 3.0 Professional Edition

-



This article was previously published under Q112674



SUMMARY
Visual Basic does not have any built-in functions that tell if a file exists or not. This article demonstrates how to find out if a file exists or not by using a Visual Basic program.



MORE INFORMATION
There are two different methods you can use to determine if a file exists:


 * Use the DIR/DIR$ command to determine if a file exists. This method is shown in the example below. The example performs a DIR on the filename and checks the return value. If the return value is "" (nothing), then the file doesn't exist.
 * Use the OPEN statement to open a file for input and an error trap. This method can run into problems when dealing with SHARE in Windows. If the file does not exist, a trappable error occurs. The only problem with this method is if the file that is being opened with the OPEN statement is in use, you will generate a sharing violation, which is a system level error that is not trappable from Visual Basic.

Step-by-Step Example
This example show how to check for the existence of a file by using the DIR$ function.

 Start a new project in Visual Basic. Form1 is created by default. Add a CommandButton (Command1) to Form1.  Place the following code in the Command1_Click Event: Sub Command1_Click Dim TheFile as String Dim Results as String

TheFile = "C:\AUTOEXEC.BAT" Results = Dir$(TheFile)

If Results = "" Then MsgBox "File Doesn't Exist!" Else MsgBox "File does Exist!" End If     End Sub

 Run the program, and click the Command1 button. Stop the program and make the TheFile variable point to a file that doesn't exist. Run the program again, and click the Command1 button.</ol>

Error in Visual Basic Help File Code
Please note that there is an error in the sample that is provided with the Visual Basic 3.0 Help file (NOTE: This only applies to Visual Basic 3.0, the samples provided with Visual Basic 4.0 and 5.0 are correct). The first line of the following If block is incorrect:

If GetAttr(Path + DirName) And ATTR_DIRECTORY = ATTR_DIRECTORY Then If (Count Mod 10) = 0 Then ReDim Preserve D(Count + 10) ' Resize the array. End If        Count = Count + 1  ' Increment counter. D(Count) = DirName End If

Here's the correct version (only difference is the first line):

If GetAttr(path + DirName) = ATTR_DIRECTORY Then If (Count Mod 10) = 0 Then ReDim Preserve D(Count + 10) ' Resize the array. End If        Count = Count + 1 ' Increment counter. D(Count) = DirName End If

<div class="references_section">