PDA

View Full Version : تست آدرس پوشه



nader.golab
چهارشنبه 16 تیر 1389, 17:46 عصر
سلام دوستان من به مشکل برخوردم اینم اینه که می خوام تو برنامه تست کنم
پوشه ای به این ادرس داریم یا نه با چه دستوری باید بنویسم.
ممنون از دوستان عزیز

M.T.P
چهارشنبه 16 تیر 1389, 17:51 عصر
از References گزینه Microsoft Scripting Runtime رو تیک بزنید و Ok کنید.

کد:


Dim Fso As New FileSystemObject
MsgBox Fso.FolderExists("C:\MyFolder")

xxxxx_xxxxx
چهارشنبه 16 تیر 1389, 22:23 عصر
سلام،
از تابع PathIsDirectoryA هم می تونید استفاده کنید:


Private Declare Function PathIsDirectoryA Lib "shlwapi.dll" (ByVal pszPath As String) As Long
مسیر فولدر رو به عنوان پارامتر به تابع بدید، خروجی اگر 0 نبود یعنی این مسیر وجود داره.

تاپیک تکراری هست!
جستجوی یک مسیر مشخص (http://barnamenevis.org/forum/showthread.php?t=189475)

nader.golab
چهارشنبه 16 تیر 1389, 23:26 عصر
سلام،
از تابع PathIsDirectoryA هم می تونید استفاده کنید:


Private Declare Function PathIsDirectoryA Lib "shlwapi.dll" (ByVal pszPath As String) As Long
مسیر فولدر رو به عنوان پارامتر به تابع بدید، خروجی اگر 0 نبود یعنی این مسیر وجود داره.

تاپیک تکراری هست!
جستجوی یک مسیر مشخص (http://barnamenevis.org/forum/showthread.php?t=189475)


ممنون از شما.مرسی. حقیقتش من این جمله به نظر نرسید.ممنون دوست عزیز