ขอทราบโค้ด สร้าง shortcut ด้วยค่ะอาจารย์
กระทู้เก่าบอร์ด อ.Yeadram

 2,772   6
URL.หัวข้อ / URL ขอทราบโค้ด สร้าง shortcut ด้วยค่ะอาจารย์

เราสามารถเขียนโค้ดคำสั่ง เพื่อให้สร้าง Shortcut ไฟล์ของฐานข้อมูลของเรา ไปอยู่ที่ Desktop ได้หรือไม่ หากได้ ต้องเขียนโค้ดอย่างไรคะ
Desktop (Create shortcut) ขอบคุณค่ะ

โดย: มาลี เมื่อ: 25 ก.พ. 2555 , 21:45

6 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R12263
ขอขยายเพิ่มเติมอีกนิดค่ะ
หากทำได้ เราสามารถกำหนดชื่อ shortcut ลงในคำสั่ง ตามที่เราต้องการด้วย ได้หรือไม่คะ

ขอบคุณค่ะ
โดย: มาลี เมื่อ: 25 ก.พ. 2555 , 21:51
2 @R12264
ทำได้ครับ แต่ผมเห็นมีแต่เค้าใช้ VBScript ทำกัน คือผมก็ไม่เคยทำเลย แต่พอดีมาอ่านเจอคำถามนี้เห็นน่าสนใจเลยลองหาใน Google ดูครับ

ตัวอย่าง
-พาธไฟล์อยู่ที่ C:\Data_Base
-ชื่อไฟล์ 1.accdb
-ต้องการสร้าง Shortcut บน Desktop โดยใช้ชื่อ Shortcut ชื่อ ทดสอบ

วิธีทำ
- สร้างปุ่มบนฟอร์ม ใส่โค๊ดลงใน Event > On Click
Dim WSHShell As Object
Set WSHShell = CreateObject("WScript.Shell")

Dim MyShortcut As Object
Dim DesktopPath As String

DesktopPath = WSHShell.SpecialFolders("Desktop")

Set MyShortcut = WSHShell.CreateShortcut(DesktopPath & "\ทดสอบ.lnk")
'ใส่ชื่อลิ้งค์ที่ต้องการ

MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("C:\DATA_base\1.accdb")
'ใส่ที่อยู่ไฟล์จริงเหมือนช่อง Target ใน Shortcut

MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings("C:\DATA_base")
'ใส่ที่อยู่เหมือนช่อง Start in ใน Shortcut

MyShortcut.WindowStyle = 4
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("C:\DATA_base\1.accdb, 0")
'ใส่พาธที่อยู่ไฟล์
MyShortcut.save

Set MyShortcut = Nothing
Set WSHShell = Nothing

หมายเหตุ เครื่องต้องมีการติดตั้ง VB6 หรือหากไม่มี ต้องมีไฟล์ wshom.ocx ในโฟลเดอร์ C:\Windows\system สำหรับ Winxp หรือ C:\Windows\system32 สำหรับ Win7
ซึ่งสำหรับคนที่เขียนใช้ VB ควรลงในเครื่องอยู่แล้ว
โดย: TTT เมื่อ: 26 ก.พ. 2555 , 00:33
3 @R12266
ขอบคุณค่ะอาจารย์ หนูจะลองเอาไปทำดูนะคะ

ดูเหมือนเราต้องระบุที่อยู่ Path file ของเราที่แน่นอนลงไป
หากจะให้ยืดหยุ่น แบบ CurrentProject ต้องทำอย่างไร
ขอคำแนะนำเพิ่มเติมด้วยค่ะ
โดย: มาลี เมื่อ: 26 ก.พ. 2555 , 13:25
4 @R12267


1 แก้ไข
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings("C:\DATA_base\1.accdb")
เป็น
MyShortcut.TargetPath = WSHShell.ExpandEnvironmentStrings(CurrentProject.Path & "\ชื่อไฟล์.accdb")

2 แก้ไข
MyShortcut.WorkingDirectory = WSHShell.ExpandEnvironmentStrings(CurrentProject.Path)

3 แก้ไข
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings("C:\DATA_base\1.accdb, 0")
เป็น
MyShortcut.IconLocation = WSHShell.ExpandEnvironmentStrings(CurrentProject.Path & "\ชื่อไฟล์.accdb" & ", 0")
โดย: ditasilk เมื่อ: 26 ก.พ. 2555 , 13:41
5 @R12268
ขอบคุณอย่างยิ่งค่ะอาจารย์ทั้งสอง
หนูจะลองทำดูนะคะ
โดย: มาลี เมื่อ: 26 ก.พ. 2555 , 13:56
6 @R12269
น่าจะลองใช้โปรแกรมทำ package เช่น setuptogo หรือโปรแกรม inno เข้าช่วยทำไฟล์เป็น setup ของ access ช่วยได้เรื่อง Shortcut และตำแหน่ง link ไฟล์ต่างๆ เคยใช้ได้ผลดีมาก
โดย: sorn เมื่อ: 26 ก.พ. 2555 , 15:49
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.2603s