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

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 wrote:
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

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" wrote:

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

Thank you very much, JW

"JW" wrote in message
oups.com...
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 wrote:
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

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

"Joel" wrote in message
...
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" wrote:

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

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

on error resume next
mkdir "I:\mybackup"
on error goto 0

dan wrote:

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

--

Dave Peterson