سلام با وی بی چطور میشه آدرس ویندوز رو پیدا کرد
مثلا من یک فایل رو تو فایلres
قرار داردم میخوام وقتی رو دکمه کلیک میکنه آخه باید یکجا بریزه دیگه می خوام کاری کنم تو درایو ویندوز بریزه چون بعضی ها ویندوزشون تو درایو سی هست بعضی ها
تو درایوهای دیگه
حالا ممنون میشم هر کی با مثال برام توضیح بده

اگر منظورت آدرس محل نصب ویندوز هست که می تونی از تابع 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 استفاده کنی.
مثلا یک کد رو میخوام تو windir بریزم با بیند میشه بهتر توضیح بدین ؟
مثلا
Private Sub Command1_Click()
SaveFile ("c:\jaber.swf")
ShockwaveFlash1.Movie = "c:\jaber.swf"
End Sub
به جای این windir اش کنید واسم
ببین خروجی Environ("WinDir") <Code برابر همون مسیر ویندوز هست
SaveFile = Envrion("WinDir") & "\jaber.swf" <Code
ولی فکر می کنم برای کاری که می خوای انجام بدی اگر فایلت رو درون Temp ذخیره کنی خیلی بهتر باشه تا توی مسیر ویندوز!
ایرور داد می تونید یک سورس بذارید تو فایل رس یک چیزی باشه مثلا ذخیره کنه تو tmp
ممنون میشم اگه با سور و فایل رس باشه که
سلام.
darg میتونم بپرسم api چه برتری به Envrion داره؟ فکر نمیکنی Envrion که از دستورات خود ویبیه به api ارجحیت داره؟
Payman62 نوشته است:darg میتونم بپرسم api چه برتری به Envrion داره؟ فکر نمیکنی Envrion که از دستورات خود ویبیه به api ارجحیت داره؟
علت رو نمی گم
اما می تونم نشونت بدم :cool:
از فایل های ضمیمه برنامه API is Good برای شماست حتما ببینش
و اما برای jabertnt هم برنامه مثال گذاشتم فایل Env ضمیمه رو دانلود کن
از کمکت ممنون اما باز هم مشکل من حل نشد میشه این سورسی که گذاشتم
از این روش تغییرات رو روش اعمال کنی ؟ ممنون میشم
خواهشا برای من از ساده ترین راه برین بی زحمت این کد رو دستکاری کنید
ممنون می شم
متاسفانه من روی سیستمم اون کنترل Flash9.ocx رو نداشتم و به خاطر همین نتئنستم پروژت رو کامل به اجرا کنم. اما تغییرات در برنامت در رویداد کلیک Command1 باید به شکل زیر باشند:
کد:
Private Sub Command1_Click()
SwfFile$ = Environ$("Temp") & "\RJ.swf"
SaveFile (SwfFile)
ShockwaveFlash1.Movie = SwfFile
End Sub
نششششششششششششششد
دوست عزیز حالا شرط فایل swf نبوده مثلا یک عکس یا فایل متنی
وقتی رو دکمه که کلیک کردی اول بره تو temp بعد اجرا بشه یک چیزی مثل همین
با سورس برام بذار ممنونت هم می شم