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 · ベストアンサー

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

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

お礼

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

回答No.2

nda23

myFileSystem.CreateFolder NewFolderName1
MkDir

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

お礼

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