پیدا کردن آدرس ویندوز با وی بی

[jaber]

سلام با وی بی چطور میشه آدرس ویندوز رو پیدا کرد

مثلا من یک فایل رو تو فایلres

قرار داردم میخوام وقتی رو دکمه کلیک میکنه آخه باید یکجا بریزه دیگه می خوام کاری کنم تو درایو ویندوز بریزه چون بعضی ها ویندوزشون تو درایو سی هست بعضی ها

تو درایوهای دیگه

حالا ممنون میشم هر کی با مثال برام توضیح بده

[Darg]

اگر منظورت آدرس محل نصب ویندوز هست که می تونی از تابع Environ استفاده کنی:
مثال:
Debug.Print Environ$("WinDir") <Code
Debug.Print Environ$("SystemRoot") <Code
Debug.Print Environ$("SystemDrive") <Code
Debug.Print Environ$("WinDir") <Code
Debug.Print Environ$("UserProFile") <Code
Debug.Print Environ$("Temp") <Code
Debug.Print Environ$("Tmp") <Code
Debug.Print Environ$("CommonProgramFiles") <Code
Debug.Print Environ$("AppData") <Code
Debug.Print Environ$("AllUsersProFile") <Code
Debug.Print Environ$("ProgramFiles") <Code

البت (به قول دوستان) این روش بیشتر مناسب برای اسکریپت نویسیه و برای خود کد های وی بی بهتره از API استفاده کنی.

[jaber]

مثلا یک کد رو میخوام تو windir بریزم با بیند میشه بهتر توضیح بدین ؟

مثلا
Private Sub Command1_Click()
SaveFile ("c:\jaber.swf")
ShockwaveFlash1.Movie = "c:\jaber.swf"
End Sub

به جای این windir اش کنید واسم

[Darg]

ببین خروجی Environ("WinDir") <Code برابر همون مسیر ویندوز هست

SaveFile = Envrion("WinDir") & "\jaber.swf" <Code

ولی فکر می کنم برای کاری که می خوای انجام بدی اگر فایلت رو درون Temp ذخیره کنی خیلی بهتر باشه تا توی مسیر ویندوز!

[jaber]

ایرور داد می تونید یک سورس بذارید تو فایل رس یک چیزی باشه مثلا ذخیره کنه تو tmp

ممنون میشم اگه با سور و فایل رس باشه که

[Payman62]

سلام.
darg میتونم بپرسم api چه برتری به Envrion داره؟ فکر نمیکنی Envrion که از دستورات خود ویبیه به api ارجحیت داره؟

[jaber]

تو رو خدا ککمکک

[Darg]

darg میتونم بپرسم api چه برتری به Envrion داره؟ فکر نمیکنی Envrion که از دستورات خود ویبیه به api ارجحیت داره؟

علت رو نمی گم
اما می تونم نشونت بدم  :cool:
از فایل های ضمیمه برنامه API is Good برای شماست حتما ببینش



و اما برای jabertnt هم برنامه مثال گذاشتم فایل Env ضمیمه رو دانلود کن

[jaber]

از کمکت ممنون اما باز هم مشکل من حل نشد میشه این سورسی که گذاشتم

از این روش تغییرات رو روش اعمال کنی ؟ ممنون میشم

خواهشا برای من از ساده ترین راه برین بی زحمت این کد رو دستکاری کنید

ممنون می شم

[Darg]

متاسفانه من روی سیستمم اون کنترل Flash9.ocx رو نداشتم و به خاطر همین نتئنستم پروژت رو کامل به اجرا کنم. اما تغییرات در برنامت در رویداد کلیک Command1 باید به شکل زیر باشند:

کد:

Private Sub Command1_Click()
SwfFile$ = Environ$("Temp") & "\RJ.swf"
SaveFile (SwfFile)
ShockwaveFlash1.Movie = SwfFile
End Sub

[jaber]

نششششششششششششششد

دوست عزیز حالا شرط فایل swf نبوده مثلا یک عکس یا فایل متنی

وقتی رو دکمه که کلیک کردی اول بره تو temp بعد اجرا بشه یک چیزی مثل همین

با سورس برام بذار ممنونت هم می شم