جستجوی آدرس در کامپیوتر

[tkd]

دوستان سلام

من میخوم یه آدرسی رو توی کامپیوتر سرچ کنم . مثلاً : C:\Pic.jpg
اگر چنین عکسی در سیستم وجود داشت ، مقدار True رو توی Label چاپ کنه ، اگه نبود False رو چاپ کنه !

تشکر

[Payman62]

سلام.
از dir استفاده کن.

[vz67]

کد:

Set fso = CreateObject("scripting.filesystemobject")
MsgBox fso.FileExists("c:\pic.jpg")

[keihancpu]

کد:

Dim Dir1 as string
Dim file1 as string
Dim DirList() as string
Dim I as integer
Dir1 = "C:\"
File1 = Dir$(Dir1 + "\*.*")
I = 0

Do while Len (file1)
Redim Preserve DirList(I)
DirList(i) = Dir1 + "\" + File1
File1 = Dir$
I = I + 1
Loop

اینو خودت یکم دستکاری کن متوجه میشی