MkDir パス名が無効です

ファイル名は取得できているはずなのですが。
エラー７５「パス名が無効です」とエラーになり止まってしまうのですが、
ファイルはできているんです。
何がいけないんでしょうか？


'------------------------------------
Private Sub コマンド35_Click()

Set db = CurrentDb
Set rs = db.OpenRecordset("Q_03_管理票_YES")

Dim var1 As String
var1 = rs.[管理番号]

Dim var2 As String
var2 = rs.[関連作業依頼]


Dim NewFolderName1 As String
Dim FileName1 As String

NewFolderName1 = CurrentProject.Path & "\作業依頼対応\" & var1 & "\" & "回答分" & "\" & var2
FileName1 = Dir$(NewFolderName1, vbDirectory) 'ファイル名を得る

'---ファイルを作成

If (FileName1 = "") Then

'ない場合は、作成する。
Dim myFileSystem As New Scripting.FileSystemObject
myFileSystem.CreateFolder NewFolderName1

MkDir NewFolderName1

MsgBox "ファイル作成"

Else
'---ファイルが存在する場合
MsgBox "ファイルはあります"
End If

End Sub

No.1 ベストアンサー 回答者： Picosoft 回答日時： 2013/04/22 11:52

> 'ない場合は、作成する。

> Dim myFileSystem As New Scripting.FileSystemObject
> myFileSystem.CreateFolder NewFolderName1
>
> MkDir NewFolderName1

同じ場所に同じ名前のフォルダを2つ作ろうとしています。

この回答へのお礼

そうですね。でも自分ではわからなかったです。よくわかっていなかったので勉強になりました。
助かりました。ありがとうございます。
また宜しくお願いします。
先にご回答いただいたのでこちらをベストアンサーにさせて頂きます。

お礼日時：2013/04/22 14:09

No.2 回答者： nda23 回答日時： 2013/04/22 12:12

myFileSystem.CreateFolder NewFolderName1

MkDir

フォルダの作成を２回やっている。
FileSystemObjectの方は不要

この回答へのお礼

そうですね。でも自分ではわからなかったです。よくわかっていなかったので勉強になりました。
助かりました。ありがとうございます。
また宜しくお願いします。

お礼日時：2013/04/22 14:08