test for existence of a directory 1

[Zepher2]

I am teying to test to see if a directory and sub directory exists on my C drive and if it does not then create the directory using the variable Me.FileNo as the name.

The Mkdir function works and the directory is created as expected when I run the the procedure the first time. The problem is the second time I run the procedure it tries to create a duplicate director and I get a run time error. So I must have something wrong with the If then statement. Can anone help me. I am a beginner with VBA.

Here is the code:

Private Sub CmdMakeDir_Click()

If Dir("C:\Client Data" & "\" & Me.[FileNo]) = "" Then

MkDir "C:\Client Data" & "\" & Me.[FileNo]

End If
End Sub

 

[TerpFan2001]

Try changing = to <>

 

[JohnYingling]

Just ignore the error when creating.
On error resume next
MkDir &quot;C:\Client Data&quot;
MkDir &quot;C:\Client Data&quot; & &quot;\&quot; & Me.[FileNo]
On Error goto 0

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[Zepher2]

That did the trick. Thank you for your help.

 

[Aivars]

Use option vbDirectory for checking of directory existence:

If Dir(&quot;C:\Client Data\&quot; & Me.FileNo, vbDirectory) = &quot;&quot; Then
MkDir &quot;C:\Client Data\&quot; & me.FileNo
End If

Now error will not proceed.

Aivars