مشکل با Environ

[arash.arya43]

Private Sub Command1_Click()

    Dim UserName As String

    Dim ahang As String

    ahang = Environ("USERNAME")

    Shell "explorer.exe C:\Users\&ahang&\AppData\Local\Temp\ahnag1.mp3"

End Sub

من تازه vb رو شروع کردم.الان این کد ایرادش چیه؟
در ضمن اصلا می خوام کد اینطوری باشه اساسا

Private Sub Command1_Click()

    Dim ahang As String

    ahang = Environ("temp")

    Shell "explorer.exe &ahang\.mp3"

End Sub

اما نمیشه جالبم اینجاست خطا هم نمیده

[ایلیا آخوندزاده]

شما برای پخش آهنگ میخواین یا نمایش فولدر آن؟

[arash.arya43]

واسه پخشش.ممکن هست اهنگم نباشه .اقا من هر چی میرزم مقدار این رو تو متغیر بعد می خوام استفاده کنم نمیشه مگه تو vb با & مقدار رو الحاق کرد

میشه کد رو کامل کنی ممنون میشم می خوام مسیر پوشه تمپ رو بگیره وتوکدمونبزاره که تو هر سیستمی از اون مسیر اهنگم که کپی میشه اونجا اجرا کنه/میسی
و یه چیزی کد ها رو اینجا چه طوری بزاریم تویه سطر پشت سر هم نیافته

[ایلیا آخوندزاده]

سلام و درود
اگه برای پخش آهنگ بخوای میتونم یه پروژه براتون ضمیمه کنم که با ocx اینکارو میکنه و خیلی هم راحته.

[ایلیا آخوندزاده]

و یه چیزی کد ها رو اینجا چه طوری بزاریم تویه سطر پشت سر هم نیافته

اول کدتون رو در نوت پد بریزید بعد کپی کنید و بذارید

[arash.arya43]

ایلیا جان فقط اهنگ نیست. یه فایل vbs هست اون اهنگ رو ران می کنه که اهنگ تو بکراند ویندوز پخش میشه.میشه با این کد بدون اون چیزی که گفتی ردیف کنی.ممنون میشم .اصلا عقده ایم کرد یکی از بچه ها حل کرد مشگلش رو الان منو میبینه اینطوریه
تو یکی از پستا دیدم کدهاروخیلی منظم گذاشته بود بدون نات پد

[ایلیا آخوندزاده]

خب برای آدرس دهی و ران چرا از دیالاگ استفاده نمی کنین؟

[arash.arya43]

واسه اینکه من 7 روزه وی بی شروع کردم.دارم pdf می خونم .بعدشم جرا با ین تابع نمیشه؟؟و اون حیزی که گفتین روپروژه میکنین ببینم چه کار کردین ممنون میشم
Untitled.jpg

[ایلیا آخوندزاده]

نمونه:test.rar

[ایلیا آخوندزاده]

واسه اینکه من 7 روزه وی بی شروع کردم.دارم pdf می خونم .بعدشم جرا با ین تابع نمیشه؟؟و اون حیزی که گفتین روپروژه میکنین ببینم چه کار کردین ممنون میشم
Untitled.jpg

خب این خطا فقط علتش اینه که فایل رو پیدا نمی کنه. در آدرس دهی بیشتر دقت کنید.ولی فکر میکنم کد غلطه چون برنامه از کجا آدرس فایل رو بدونه تا بازش کنه؟ یک جمله aa.vbs اصلا قابل فهم نیست چه برسه بخواین بعنوان آدرس ازش استفاده کنین

[just4froum]

با سلام :

در تکمیل حرف های جناب iliaoffice1

مشکل شما در تصویری که گذاشتید از \ هست ! به شکل زیر تغییرش بدین !

Shell ("explorer" & tenm & "\" & "aa.vbs")

برای رفع این جور مشکل ها بجای shell عبارت msgbox رو قرار بده اونوقت می فهمی چه آدرسی داری میدی و مشکلش کجاست ! (البته راه های دیگه ای هم هستا ولی چون تازه شروع کردی گفتم msgbox)

موفق باشید

[arash.arya43]

بچه ها خیلی ممنون که توجه میکنین.واقعا ذله شدم
ax.jpg

[arash.arya43]

3.jpgاینم واسه اینکه مطمئن شیم اهنگ یا aa.vbs اونحاست


2.png

[setroyd]

ببین شما مشکلت از ادرس دهیته نوشته file not found یعنی فایل شما پیدا نشد اولا چون داخل درایو ویندوز شماس برنامه رو run as administrator کن حتما برای پیگیری و debug کردن کدهات و....... شما یکبار اصولی کد رو چک کن اگه مشکلی بود بگو برات سه سوته حلش کنم

[vbhamed]

و یه چیزی کد ها رو اینجا چه طوری بزاریم تویه سطر پشت سر هم نیافته

سلام
كدتون رو كه Paste كردين كلش رو انتخاب كنيد و دكمه VB رو از نوار ابزار ويرايشگر بزنيد

[arash.arya43]

ببین شما مشکلت از ادرس دهیته نوشته file not found یعنی فایل شما پیدا نشد اولا چون داخل درایو ویندوز شماس برنامه رو run as administrator کن حتما برای پیگیری و debug کردن کدهات و....... شما یکبار اصولی کد رو چک کن اگه مشکلی بود بگو برات سه سوته حلش کنم

میسی .ادمین به پوشه تمپ گیر نمیده.بعدشم حالا کد vbsنبود این دفعه یه اهنگ روخواستم اجرا کنه

[just4froum]

با سلام :

بعد explorer هم یک فاصله میخواد !

Shell ("explorer " & tenm & "\" & "aa.vbs")

[arash.arya43]

نمیشه .ارورهم نمیده

بچه ها از اینکه توجه کردین ممنون، 72 ساعت واسه یه چیز پوچ وقت گذاشتم یا این تابع تابع نیست یا هم من بلد نبودم مونتاژ کنم.
شبتون بخیر

[vbhamed]

سلام

مشكل شما ربطي به Environ و اين چيزها نداره
شما داري سعي مي‌كني يك فايل رو با explorer اجرا كني و اين برای همه فایلها ممكن نیست، بايد از تابع ShellExecute استفاده كني

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long



Private Sub Form_Load()

        

    ShellExecute Me.hwnd, "open", "h:\Temp\ahang.mp3", "", "", 3



End Sub

[arash.arya43]

مرسی از کمکهاتون.اینم کد

Private Sub Command1_Click()Dim Res

Dim Filename

Dim adree

Filename = Environ("temp")

adree = Filename + "\aa.vbs"

Res = Shell("Explorer.exe " & adree)

End Sub 

[vbhamed]

سلام
اين كد شما باز هم ممكنه جاهايي به مشكل بربخوره، راه اصولي همونه كه تو پست 17 گفته شد، اينطوري خود ويندوز تعيين مي‌كنه هر پسوندي با چه برنامه اي باز بشه البته طبق چيزي كه قبلا خود برنامه ها كارشون رو به ويندوز معرفي كردن

[aminsoltani1]

با شل معمولی نمیشه این کار رو کرد

[gorg313]

سلام

آرش خان شما فایل .Vbs را بذار اینجا من یه نگاه بندازم بهش

بعد همیشه خواستی Explorer را فرا خوانی کنی E اولش را بزرگ درج کن