ايران ويج

دوستان سلام

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

تشکر

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

کد: 
Set fso = CreateObject("scripting.filesystemobject")

MsgBox fso.FileExists("c:\pic.jpg")

کد: 
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

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

tkd

Payman62

vz67

keihancpu