PDA

View Full Version : سوال: بهبود برنامه InsertHeyperlink


mcyborgm
چهارشنبه 28 مرداد 1394, 06:29 صبح
سلام خدمت همه دوستان و اساتید بنده.


یه برنامه ای هستش که (از همینجا دان کردم) فایل مورد نظر رو با بروس کردن انتخاب می کنه و لینکش رو نشون میده.
می خواستم که اگه میشه، مثل فایلی که ضمیمه کردم، دوتا دکمه بهش اضافه بشه.
یکی برای باز کردن لینک باشه.
یعنی نیاز نباشه روی اسم لینک کلیک کنم تا فایل باز شه.
یکی دیگه برای کپی کردن فایل لینک.
یعنی فایل مورد نظرم رو کپی کنه و بتونم هرجا خواستم پیست (Paste) کنم.
mcyborgm
یک شنبه 01 شهریور 1394, 22:49 عصر
دوستان، اساتید.....
کسی نبود؟؟؟
alirezabahrami
دوشنبه 02 شهریور 1394, 00:48 صبح
دوستان، اساتید.....
کسی نبود؟؟؟
سلام
فایل اصلاح شده را بررسی کن!
ضمناً برای کپی کردن فایل می توانی از متد FileCopy Source, destination استفاده کنید .
در این متد FileCopy دستور کپی را از آدرس Source (آدرس مبدإ ) را در destination (آدرس مقصد) انجام می دهد
یا علی
mcyborgm
یک شنبه 08 شهریور 1394, 05:24 صبح
سلام
فایل اصلاح شده را بررسی کن!
ضمناً برای کپی کردن فایل می توانی از متد FileCopy Source, destination استفاده کنید .
در این متد FileCopy دستور کپی را از آدرس Source (آدرس مبدإ ) را در destination (آدرس مقصد) انجام می دهد
یا علی
با تشکر از دوست عزیز :قلب::قلب:
خیلی عالی بود.
درباره کپی هم، نمیدونم چرا جواب نمیده.
من Source رو تکت فایل قرار میدم.
destination رو هم "c:\" . اما نمیدونم چرا ارور میده:متفکر::متفکر:

راستی می خواستم ببینم میشه browse هم بهش اضافه کرد؟؟
alirezabahrami
یک شنبه 08 شهریور 1394, 23:41 عصر
با تشکر از دوست عزیز :قلب::قلب:
خیلی عالی بود.
درباره کپی هم، نمیدونم چرا جواب نمیده.
من Source رو تکت فایل قرار میدم.
destination رو هم "c:\" . اما نمیدونم چرا ارور میده:متفکر::متفکر:

راستی می خواستم ببینم میشه browse هم بهش اضافه کرد؟؟
سلام
کد زیر را در ایونت کلیک کمند باتن کپی فایل قرار بده و آن را تست کن !
در کد زیر ابتدا بررسی میشود که در مسیروارد شده در تکست باکس txtFile فایلی که قرار است کپی شود وجود دارد یا نه . اگر وجود داشت عمل کپی انجام شده و کپی فایل در درایو f با عنوان جدید 125.mdb قرار میگیرد و اگر وجود نداشت پیغام فایل مربوطه در مسیر وارد شده یافت نشد صادر میشود .
ضمناً browse هم میتوان اضافه کرد .
یا علی




Dim oldPath As String, newPath As String
oldPath = txtFile
newPath = "f:\125.mdb"
If Dir(txtFile) <> "" Then
CopyFile txtFile, newPath, 0
MsgBox " ÚãáíÇÊ ˜í ÈÇ ãæÝÞíÊ Èå ÇíÇä ÑÓíÏ ", vbInformation, ""
Else
MsgBox " ÝÇíá ãæÑÏ äÙÑ ÏÑ ãÓíÑ æÇÑÏ ÔÏå íÇÝÊ äÔÏ ", vbExclamation, ""
Exit Sub
End If
mcyborgm
سه شنبه 10 شهریور 1394, 05:14 صبح
سلام
کد زیر را در ایونت کلیک کمند باتن کپی فایل قرار بده و آن را تست کن !
در کد زیر ابتدا بررسی میشود که در مسیروارد شده در تکست باکس txtFile فایلی که قرار است کپی شود وجود دارد یا نه . اگر وجود داشت عمل کپی انجام شده و کپی فایل در درایو f با عنوان جدید 125.mdb قرار میگیرد و اگر وجود نداشت پیغام فایل مربوطه در مسیر وارد شده یافت نشد صادر میشود .
ضمناً browse هم میتوان اضافه کرد .
یا علی




Dim oldPath As String, newPath As String
oldPath = txtFile
newPath = "f:\125.mdb"
If Dir(txtFile) <> "" Then
CopyFile txtFile, newPath, 0
MsgBox " ÚãáíÇÊ ˜í ÈÇ ãæÝÞíÊ Èå ÇíÇä ÑÓíÏ ", vbInformation, ""
Else
MsgBox " ÝÇíá ãæÑÏ äÙÑ ÏÑ ãÓíÑ æÇÑÏ ÔÏå íÇÝÊ äÔÏ ", vbExclamation, ""
Exit Sub
End If




آقا دستت درد نکنه. انجام دادم اوکی شد.
فقط اگه میشه کد browse رو هم بنویسی که خیلی ممنون می شم.