مشکل با file system object

[zapata-es]

با سلام
بچه ها من کد زیر رو نوشتم
()sun drive1.change
Dir1.Path = Drive1.Drive

If fso.FolderExists("mp3") Then
Text1.Text = "hast"
Else
Text1.Text = "nist"
End If
مشکل اینه که برنامه فقط میره درایو g منو میگرده . در حالی که من وقتی من درایو c یا هر درایو دیگه ای رو انتخاب میکنم باز هم جواب در text1 مقدار nist میشود.میشه بگید چطور میتونم به این ویژواله بگم که در مسیر انتخاب شده بره جستجو کنه؟؟؟

[zapata-es]

ار دوستان کسی میتونه کمک کنه؟ :embr:

[حامد مصافی]

سلام
برنامه شما از درایو G اجرا یشه بنابرین دراید فعلی همون g است

شما مسیر مطلق فولدر رو ذکر کن
برای مثال


...
If fso.FolderExists("C:\mp3") Then
...

[zapata-es]

آقا دمت گرم . میگم این دیر جواب دادن دوستان هم بعضی وقتها منشا خیر میشه واسه ما :mrgreen:
رفتیم یه کم کلنجار رفتیم تا آخرش رسیدیم به این
drv=text1.text
If fso.FolderExists(drv &":\" &mp3") =true Then :oops: خب کم کم از بیسوادی در میایم. :D
......
از پاسخ شما هم ممنونم جناب blackdal