VBA-check if folder/file exists, create them if not

Sub TestIt()
If myFileExists("C:\Temp\Test.xls") Then
msgbox "Exists!"
Else
msgbox "No Can Do."
End if
'-------------------------------------------------------
Function myFileExists(ByVal strPath As String) As Boolean
'Function returns true if file exists, false otherwise
    If Dir(strPath) > "" Then
        myFileExists = True
    Else
        myFileExists = False
    End If
End Function

Sub btncontinue_Click()
Dim myFile As String, myFolder As String
myFolder = "C:\TimeCards"
myFile = myFolder & "\timecards.xls"
If Not IsFolderExixts(myFolder) Then
    CreateObject("Scripting.FileSystemObject").CreateFolder myFolder
End If
If Not IsFileExists(myFile) Then
    MsgBox "No such file in the folder"
    Exit Sub
End If
Set wb = Workbooks.Open(myFile)
' Your code here
End Sub
 
Function IsFolderExists(txt As String) As Boolean
    IsFolderExists = _
        Createobject("Scripting.FileSystemObject").FolderExists(txt)
End Function
 
Function IsFileExists(txt As String) As Boolean
    IsFileExists = _
        CreateObject("Scripting.FilesystemObject").FileExists(txt)
End Function

Sub TestIt()
Dim s As String
Dim b As Boolean
    s = "C:\TEMP": b = CheckForFolder(s): Debug.Print s & "|" & b
    s = "C:\TEMP\": b = CheckForFolder(s): Debug.Print s & "|" & b
    s = "C:\TEEMP": b = CheckForFolder(s): Debug.Print s & "|" & b
    s = "C:\Temp\test.xls": b = CheckForFile(s): Debug.Print s & "|" & b
    s = "C:\TEMP\Test.xls": b = CheckForFile(s): Debug.Print s & "|" & b
End Sub
'------------------------------------------------------------------
Function CheckForFolder(ByVal strPathToFolder As String) As Boolean
'To use this fn you must set a reference for Scripting Runtime
'--------------------------------------------------
'1.  In the VBE window, Choose Tools | References
'2.   Check the box for Microsoft Scripting Runtime
'--------------------------------------------------
Dim fso As FileSystemObject
Dim blnFolderExists As Boolean

    'Create object
    Set fso = New FileSystemObject
    CheckForFolder = fso.FolderExists(strPathToFolder)
    If Not fso Is Nothing Then Set fso = Nothing

End Function
'------------------------------------------------------------------
Function CheckForFile(ByVal strPathToFile As String) As Boolean
'To use this fn you must set a reference for Scripting Runtime
'--------------------------------------------------
'1.  In the VBE window, Choose Tools | References
'2.   Check the box for Microsoft Scripting Runtime
'--------------------------------------------------
Dim fso As FileSystemObject
    
    Set fso = New FileSystemObject
    CheckForFile = fso.FileExists(strPathToFile)
    If Not fso Is Nothing Then Set fso = Nothing

End Function