وجود یک فولدر

[m2011kh]

سلام به همه ی دوستان و برنامه نویسان محترم.

یه مشکلی داشتم که نتونستم راه حلّی براش پیدا کنم.من قبلا با Dir() وجود یک فایل رو چک میکردم ولی الان میخوام که وجود یک فولد رو چک کنم.

دوستان اگه راه حلّی دارن دریغ نکنن.

موفق و سربلند باشید.

MMD

[mehran901]

سلام به همه ی دوستان و برنامه نویسان محترم.

یه مشکلی داشتم که نتونستم راه حلّی براش پیدا کنم.من قبلا با Dir() وجود یک فایل رو چک میکردم ولی الان میخوام که وجود یک فولد رو چک کنم.

دوستان اگه راه حلّی دارن دریغ نکنن.


موفق و سربلند باشید.

MMD

خیلی ساده با متغییر های Fso

Dim a As New FileSystemObject

If a.FolderExists("c:\aa") = True Then MsgBox "exist"

فقط رفرنس microsoft scripting runtime رو اضافه کنین یا این که :

dim k as object
Set k = CreateObject("Scripting.FileSystemObject")
if k.FolderExist("c:\windows") = true then msgbox "exist "



یا اگه میخواین همون سینتکس Dir رو به این صورت بنویسین :

If not Dir("c:\windows", vbDirectory) = vbNullString Then MsgBox "exist"


البته راه های دیگه ای هم با چاشنی خلاقیت وجود داره مثلا : :D

Dim k
On Error GoTo er
k = GetAttr("c:\1243")
Exit Sub
er: If Err.Number = 53 Then MsgBox "not found !"

[just4froum]

اینم API اگر خواستی از این روش استفاده کنی :

Private Declare Function PathIsDirectory Lib "shlwapi.dll" Alias "PathIsDirectoryA" (ByVal pszPath As String) As Long

Private Sub Form_Load()
MsgBox CBool(PathIsDirectory("C:\Windows"))
End Sub