چجوری میشه توی یه درایو دونبال یه فولدر گشت ؟

[s.hidden]

سلام.
میخوام یه برنامه بنویسم که بره توی یه فولدری دنبال یه فولدر بگرده .
اگه پیدا کرد مقدار اول برگرده اگه نه مقدار دوم.
راستی رو سیستم من ویبی 2010 نصبه .
یه مشکلم اون داره :
برنامه هایی که با ویبی 2010 مینویسیم رو ایکس پی اجرا نمیشه .
واسه اون چه راهکاری دارین ؟
( من میخوام برنامم Stand Alone باشه و نبازی به نصب نباشه . )

[s.hidden]

خودم پیدا کردم.

[MrGee]

خوب لااقل بزار بقیه هم استفاده کنن.

[s.hidden]

خوب لااقل بزار بقیه هم استفاده کنن.

راست گفتی ها . ببخشید باید زودتر میزاشتم.

Function FileExists (strPath As String) As Integer
Dim lngRetVal As Long
On Error Resume Next
lngRetVal = Len(Dir$('Put Your Adress))
If Err Or lngRetVal = 0 Then
a = msgbox ("File Doesnt Exist")
Else
b = msgbox ("File Exist")
end if
End Function

[privatekamy]

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

-----------------------------------------

اصلاح شد.
لطفا برای کدهای خود از تگ کد استفاده کنید.
Payman_62