摘要： 一、定義創建快捷方式過程： Sub CreateTSCut(AppFullName As String) Dim lnkPath As String, lnkName As String, ExePath As String, Ts As String Dim i As Integer lnkName = "TSAPP" lnkPath = GetDirs("desktop") & ... 阅读全文