Sub test()
    Dim strPath As String, arrDirectories As Variant
    Dim i As Long, x As String, msgResponse As VbMsgBoxResult
    strPath = "c:\temp\folder1\folder2\test"
    On Error Resume Next
    x = GetAttr(strPath) And  0 
    If Err.Number <>  0  Then
        msgResponse = MsgBox( _
            "The folder doesn' exist. Would you like to create it?", _
                vbExclamation + vbOKCancel)
        If msgResponse = vbCancel Then Exit Sub
        On Error GoTo  0 
        arrDirectories = Split(strPath, "\"): strPath = ""
        For i = LBound(arrDirectories) To UBound(arrDirectories)
            strPath = strPath & arrDirectories(i) & "\"
            On Error Resume Next
            x = GetAttr(strPath) And  0 
            If Err.Number <>  0  Then MkDir strPath
            On Error GoTo  0 
        Next i
    End If
End Sub

#If Not VBA6 Then
Function Split(strTxt As String, strDelimiter As String) As Variant
  Split = Evaluate("{""" & Application.Substitute(strTxt, strDelimiter, """,""") & """}")
End Function
#End If

Sub test2()
    Dim strPath As String, strFileName As String, strFullFileName As String
    strPath = "c:\temp\folder1\folder2\test\"
    strFileName = "002.xls"
    strFullFileName = strPath & strFileName
    If Dir(strFullFileName) = "" Then MsgBox "File already exists!" Else MsgBox "File does not exist!"
End Sub

Sub test2()
    Dim strPath As String, strFileName As String, strFullFileName As String
    strPath = "c:\temp\folder1\folder2\test\"
    strFileName = "002.xls"
    strFullFileName = strPath & strFileName
    If Dir(strFullFileName) = "" Then MsgBox "File already exists!" Else MsgBox "File does not exist!"
End Sub

Sub test2()
    Dim strPath As String, strFileName As String, strFullFileName As String
    strPath = "c:\temp\folder1\folder2\test\"
    strFileName = "002.xls"
    strFullFileName = strPath & strFileName
    If Dir(strFullFileName) = "" Then MsgBox MsgBox "File does not exist!" Else "File already exists!"
End Sub