รบกวนดู Macro Code เกี่ยวกับการสร้างโฟลเดอร์ครับ

[kraikrai]

สวัสดีครับ อยากจะขอความช่วยเหลือเกี่ยวกับการสร้างโฟลเดอร์ ผมสร้างโฟลเดอร์ขึ้นมาได้แล้ว
แต่ถ้าเกิดสร้าง Folder ขึ้นมาซ้ำ ไม่ทราบต้องเขียน Code อย่างไร ให้สามารถตรวจสอบก่อน
ว่ามีโฟลเดอร์ซ้ำ ให้มี Msg หรือ Error แจ้งครับ ขอบคุณครับ

Sub MKDIRectory()

A = Range("A1").Value
b = Range("B1").Value

MkDir A & "\Round" & b

End Sub

[tupthai]

Public Sub MkDir()
str = "d:\data"
If Dir(str, vbDirectory) ="" Then
'MkDir str
Else
'MsgBox "No"
End If
End Sub

[kraikrai]

Public Sub MkDir()
str = "d:\data"
If Dir(str, vbDirectory) ="" Then
'MkDir str
Else
'MsgBox "No"
End If
End Sub

ขอบคุณสำหรับคำตอบครับ แต่ว่าผมลอง Run Code ดูแล้ว
ก็ยังใช้ไม่ได้ครับ Code ขึ้น Error ไม่รู้ว่าต้องแก้ไขตรงไหนครับ

[tupthai]

ขอดู code ที่ทำหน่อย หรือ แนบ file ก็ได้ ครับ

[kraikrai]

ขอดู code ที่ทำหน่อย หรือ แนบ file ก็ได้ ครับ

ผมส่งไฟล์แนบมาแล้วนะครับ ขอบคุณครับ

[tupthai]

Public Sub MkDir()

Dim Str As String
Str = "d:\data1"
If Dir(Str, vbDirectory) = "" Then
'MkDir str
MsgBox "Yes"
Else
MsgBox "No"
End If

End Sub
เพิ่มการประกาศตัวแปร

[kraikrai]

Public Sub MkDir()

Dim Str As String
Str = "d:\data1"
If Dir(Str, vbDirectory) = "" Then
'MkDir str
MsgBox "Yes"
Else
MsgBox "No"
End If

End Sub
เพิ่มการประกาศตัวแปร

ขอบคุณมากๆ ครับ

[kraikrai]

Public Sub MkDir()

Dim Str As String
Str = "d:\data1"
If Dir(Str, vbDirectory) = "" Then
'MkDir str
MsgBox "Yes"
Else
MsgBox "No"
End If

End Sub
เพิ่มการประกาศตัวแปร

ขอบคุณมากๆ ครับ