نقل قول نوشته شده توسط R2du-soft مشاهده تاپیک
از کد زیر استفاده کردم ولی پس از اجرا و کلیک بر روی دکمه خطای

RUN-TIME ERROR '424':
OBJECT REQUIRED


میده!!!!!

.
.

.
طبیعتا" این خطا را میدهد چون هنوز کامپوننت "Windows Script Host Object Model" به Reference اضافه نشده، برای اضافه کردن این کامپوننت هم میتوانیم از فرم Reference این کامپوننت را انتخاب کنیم و هم با CreateObject آنرا ایجاد کنیم، که در اینجا آنرا با CreateObjectایجاد میکنیم:

کد HTML:
Dim reg
Private Sub Form_Load()
    Set reg = CreateObject("wscript.shell")
End Sub

Private Sub Command1_Click()
    MsgBox reg.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\yahoo\pager\Version")
End Sub

اگه کد بالا عمل کنه و توی کلید VERSION آدرس باشه مثلا :

C:\WINDOWS

بعد من بخوام با یه کد دیگه بگم که از مسیری که توی VERSION هست هرچی dll هست رو کپی کنه چطور باید تعریف کنمش؟
به اینصورت با توابع جستجوی میتوانیم محتوی مسیر بدست آمده را جستجو و با دستوری مانند FileCopy کپی کنیم، در مورد جستجوگر هم:
https://barnamenevis.org/attachment.p...7&d=1298962438

و یا
http://download.microsoft.com/downlo...C3/DirWalk.exe
-----
http://www.planet-source-code.com/vb...74032&lngWId=1
http://www.planet-source-code.com/vb...73753&lngWId=1
http://www.planet-source-code.com/vb...71531&lngWId=1
http://www.planet-source-code.com/vb...67051&lngWId=1
http://www.planet-source-code.com/vb...58810&lngWId=1
http://www.planet-source-code.com/vb...49401&lngWId=1


موفق باشید