摘要:
一、定義創建快捷方式過程: 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") & ...
阅读全文
posted @ 2005-02-24 10:33
James Wong
阅读(1192)
推荐(0)
编辑