PDA

View Full Version : سوال: پيداكردن آدرس يك فايل (MSACCESS.EXE)


abas1388
چهارشنبه 18 آذر 1388, 07:57 صبح
با سلام
باچه تابعي ميتوان مسير يك فايل مثلاً فايل MSACCESS.EXE را پيدا كرد ، بطوريكه آدرس مسير فوق در يك تكست باكس درج شود.البته با فرض اينكه اين فايل معلوم نيست در كدام يك از درايو ها قرار داشته باشد.
با تشكر
far9090
چهارشنبه 18 آذر 1388, 10:00 صبح
سلام. اگه تو چند مسیر ممکنه وجود داشته باشه می تونی با DIR چکش کنی و چند تا حالت رو چک کنی . ولی اگه اصلا معلوم نیست تو کجا هست و امکان داره هر جایی باشه از این کد ببین می تونی استفاده کنی یا نه . کارش جستجو هستش .
abas1388
پنج شنبه 19 آذر 1388, 08:15 صبح
با سلام
باچه تابعي ميتوان مسير يك فايل مثلاً فايل MSACCESS.EXE را پيدا كرد ، بطوريكه آدرس مسير فوق در يك تكست باكس درج شود.البته با فرض اينكه اين فايل معلوم نيست در كدام يك از درايو ها قرار داشته باشد.
با تشكر
با سلام
در برنامه ائي براي اجراي يك فايل اكسس از كد اسكريپت زير استفاده شده . نميدانم معادل اين كد در vb به چه صورتي است ؟اگر كد فوق به كد vb تبديل شود مشكلم حل ميشود .
با تشكر




$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion", "ProgramFilesDir")
$Txt = '"' & $var & "\Microsoft Office\Office11\Msaccess.exe" & '"' & " " & '"' & @ScriptDir & "\x1.mdb" & '"'
abas1388
یک شنبه 22 آذر 1388, 12:13 عصر
با سلام
در برنامه ائي براي اجراي يك فايل اكسس از كد اسكريپت زير استفاده شده . نميدانم معادل اين كد در vb به چه صورتي است ؟اگر كد فوق به كد vb تبديل شود مشكلم حل ميشود .
با تشكر




$var = RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Curr entVersion", "ProgramFilesDir")
$Txt = '"' & $var & "\Microsoft Office\Office11\Msaccess.exe" & '"' & " " & '"' & @ScriptDir & "\x1.mdb" & '"'


سلام
همچنان منتظر راهنمائي دوستان بزرگوار هستم
با تشكر
scarce
چهارشنبه 25 آذر 1388, 21:55 عصر
سلام
همچنان منتظر راهنمائي دوستان بزرگوار هستم
با تشكر


اینم از پروژه شما من چون office نداشتم از mozilla استفاده کردم.
فقط شما باید تو رجیستری نام کلید جایگزین کنید.



Text1 = GetString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal l
\Mozilla Firefox (3.5)", "InstallLocation")

replace

Text1 = GetString(HKLM, "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstal l\Office Key", "InstallLocation")تو رجیستری سیستم خودت برو به مسیر بالا برو کلید office رو پیدا کن
به پروژه زیر یک نگاه بنداز متوجه میشی
با تشک