Sub GetFolder()

Dim FolderName, FileName, MyFolder, MyFile As String

FolderName = "abc"

FileName = "abc.xls"

MyFolder = Dir("D:\" & FolderName, 16)

MyFile = Dir("D:\" & FolderName & "\" & FileName, 16)

If MyFolder "" Then

MsgBox "The folder is OK"

Else

MkDir "D:\" & FolderName

End If

If MyFile "" Then

MsgBox "The File is OK"

Else

Open "D:\" & FolderName & "\" & FileName For Output As #1

Close #1

End If

End Sub