نحوه آدرس دهی دائمی در وی بی (همه جا)

سلام
تو وی بی 6 چطوری ادرس دهی کنیم که وقتی برنامه رو روی سی دی ریختیم
و روی کامپیوتر فرد دیگری اجرا کردیم هم فایل های صوتی یا تصویری اجرا شود ؟
یا علی خدا نگهدار

از app.path استفاده کنید.
توی این خاصیت مسیر اجرای برنامه ذخیره میشه.

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

مثلا برای مسیر یک فایل تصویر آنرا در پوشه ای که برنامه قرار دارد بیندازید و بعد

DirPic=app.path+"\pic.bmp"

حتی میتوانید در یک ساب فولدر فایل را قرار دهید و بعد

DirPic=app.path+"\Images\pic.bmp"

نقل قول:

---

مثلا برای مسیر یک فایل تصویر آنرا در پوشه ای که برنامه قرار دارد بیندازید و بعد

DirPic=app.path+"\pic.bmp"

حتی میتوانید در یک ساب فولدر فایل را قرار دهید و بعد

DirPic=app.path+"\Images\pic.bmp"

---

دوست عزیزمون درست می فرمایند ولی این کد یک مشکل داره یعنی اگر این برنامه رو توی ریشه اصلی اجرا کنید پیغام خطا میده
بهتره از کد زیر استفاده کنید:
اول یک متغیر از جنس string بساز (در قسمت general فروم)

کد:

---

Dim strfs As String

---

بعد در رویداد Form_Load کد زیر رو بنویس:

کد:

---

Private Sub Form_Load()
If Right(App.Path, 1) = "\" Then
strfs = App.Path
Else
strfs = App.Path & "\"
End If
Me.Caption = strfs
End Sub

---

شکل کلیش اینه:

کد:

---

Dim strfs As String
Private Sub Form_Load()
If Right(App.Path, 1) = "\" Then
strfs = App.Path
Else
strfs = App.Path & "\"
End If
Me.Caption = strfs
End Sub

---

از این پس مثل کد دوستمون رو بنویس فقط با یکم تغییر به صورت زیر:

کد:

---

DirPic = strfs & "pic.bmp"
DirPic = strfs & "Images\pic.bmp"

---

به همین راحتی به همین خوشمزگی:27:

خیلی ببخشیدا
اولا کدی که من نوشتم هیچگونه اروری نداره و فقط به خاطر اینکه داخل کد تگ نذاشتم بهم ریخت
که شکل اصلیش اینه

کد:

---

DirPic = app.path + "\pic.bmp"

DirPic = app.path + "\Images\pic.bmp"

---

بعدش هم باید خدمتتون عرض کنم که app.path هیچوقت آخرش بک اسلش \ نداره.

نقل قول:

---

بعدش هم باید خدمتتون عرض کنم که app.path هیچوقت آخرش بک اسلش \ نداره.

---

کدت درسته مشکل کارت همینجاست دیگه
تو یک نرم افزار بنویس که app.path رو نشون بده بعد همون نرم افزار رو بزار توی ریشه اصلی یک درایو مثلا توی خود درایو c منظورم ایه که تو پوشه خاصی نباشه بعد برنامه رو اگر اجرا کنی / هم آخرش داره
این یک عیب وی بیه به نظر من
ولی به راحتی قابل حله با اون کدی که من نوشتم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

نقل قول:

---

نوشته شده توسط بهرام_62 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کدت درسته مشکل کارت همینجاست دیگه
تو یک نرم افزار بنویس که app.path رو نشون بده بعد همون نرم افزار رو بزار توی ریشه اصلی یک درایو مثلا توی خود درایو c منظورم ایه که تو پوشه خاصی نباشه بعد برنامه رو اگر اجرا کنی / هم آخرش داره
این یک عیب وی بیه به نظر من
ولی به راحتی قابل حله با اون کدی که من نوشتم [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

---

تایید میشه - آخه خیلی وقته کار نکردم.
ولی بهتره که اینجور باشه

کد:

---

Dim strfs As String

Private Sub Form_Load()
  strfs = App.Path
  If Right(App.Path, 1) <> "\" Then strfs = strfs & "\"
  Me.Caption = strfs
End Sub

---

آره اینجوری ممیشه
هزارنوع میشه:دی