Dir[(pathname[, attributes])]

vbNormal     = 0 = (Default) Specifies files with no attributes.
vbReadOnly = 1 = Specifies read-only files in addition to files with no attributes.
vbHidden     = 2 = Specifies hidden files in addition to files with no attributes.
VbSystem    = 4 = Specifies system files in addition to files with no attributes. Not available on the Macintosh.
vbVolume    = 8 = Specifies volume label; if any other attributed is specified, vbVolume is ignored. Not available on the Macintosh.
vbDirectory = 16 = Specifies directories or folders in addition to files with no attributes.
vbAlias        = 64 = Specified file name is an alias. Available only on the Macintosh.


If Dir("C:\Temp", vbDirectory) = "" Then
     Msgbox "ไม่มีชื่อโฟลเดอร์นี้"
Else
     Msgbox "มีชื่อโฟลเดอร์นี้จริง"
End If


If Dir("C:\Temp\Text.txt", vbNormal) = "" Then
     Msgbox "ไม่มีไฟล์ชื่อนี้อยู่จริง"
Else
     Msgbox "มีไฟล์นี้อยู่จริง"
End If

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

ใช้ได้แล้วครับ ขบอคุณมากจิงๆที่แบ่งบัน