Creating a folder

[dan]

Sub test()
' I want to creat a folder if that folder doesn't exist in the path.
' The following statement is not supported. What is the right way?, Please.

If Not Application.exist("I:\Mybackup\") Then MkDir ("I:\Mybackup\")
End Sub

 

[JW]

One way:
Sub addFolder()
Dim pth As String
pth = "I:\Mybackup\"
If Dir(pth, vbDirectory) = "" Then
MkDir pth
Else
MsgBox "exists"
End If
End Sub

Another way:
On Error Resume Next
MkDir "I:\Mybackup\"
On Error GoTo0

I personally prefer the first way.

 

[Guest]

Use Dir

Sub test()

' I want to creat a folder if that folder doesn't exist in the path.
' The following statement is not supported. What is the right way?, Please.

If Dir("C:\Mybackup\") = "" Then
MkDir ("C:\temp\Mybackup\")
End If
End Sub

 

[dan]

Thank you very much, JW

One way:
Sub addFolder()
Dim pth As String
pth = "I:\Mybackup\"
If Dir(pth, vbDirectory) = "" Then
MkDir pth
Else
MsgBox "exists"
End If
End Sub

Another way:
On Error Resume Next
MkDir "I:\Mybackup\"
On Error GoTo0

I personally prefer the first way.

 

[dan]

Hi Joel,
I like your simple statement.
Thank you very much.

 

[Dave Peterson]

Maybe you can just ignore the error if the folder already exists:

on error resume next
mkdir "I:\mybackup"