Tác giả: truongphu
Mô tả: Tạo Shortcut tại Desktop, viết lại code/VBS có ứng dụng.
Bài cũ cung cấp Function TaoShortCut, chưa "sướng"
Tôi xin gởi ứng dụng luôn, biết đâu lại lọt vào Visual Basic Library.
Cần 1 Command và 1 CommonDialog
Mã: Chọn tất cả
Option Explicit'Không hô tro' tiêng ViêtPrivate Sub Command1_Click() CommonDialog1.ShowOpen Dim UngDung As String, TênSC As String, i As Integer UngDung = CommonDialog1.FileName If UngDung = "" Then GoTo Lôi On Error GoTo LôiTV TênSC = Left$(UngDung, Len(UngDung) - 4) For i = Len(TênSC) To 2 Step -1 If Mid(TênSC, i, 1) = "\" Then Exit For Next TênSC = Right$(TênSC, Len(TênSC) - (i - 1)) & ".lnk" Dim OBJ As Object, Shcut As Object Set OBJ = CreateObject("WScript.Shell") Set Shcut = OBJ.CreateShortcut(OBJ.SpecialFolders("Desktop") & TênSC) Shcut.TargetPath = UngDung Shcut.Save Set OBJ = Nothing CommonDialog1.FileName = "" Exit SubLôiTV: MsgBox "Lôi Tiêng Viêt, Không tao Ðuoc ShortCut. Thoát!" EndLôi:End Sub
