| 发表于:2007-09-23 00:38:312楼 得分:0 |
'试图得到该快捷方式的“目标”属性。注意不是“目标位置”属性! '找到快捷方式文件,显示它的名字 option explicit dim catiashortcutfile 'as string dim catiarunenv as string private sub command1_click() dim strfilename as string strfilename = dir( "c:\documents and settings\all users\desktop\ ") while (len(strfilename)) if instr(1, strfilename, "catia ") then catiashortcutfile = strfilename '找到快捷方式文件,显示它的名字 msgbox catiashortcutfile '试图得到该快捷方式的“目标”属性。注意不是“目标位置”属性! catiarunenv = catiashortcutfile.target '我知道这里肯定出问题, 'catiashortcutfile只是个字符串,但我不知道该怎么处理! msgbox catiarunenv exit sub end if strfilename = dir wend end sub 谢谢! | | |
|