请问我这个代码为什么不能得到我想要的效果（而且还提示没有权限）

答案:1 悬赏:80 手机版

解决时间 2021-04-29 19:50

提问者网友：雾里闻花香
2021-04-29 14:17

Const FAVORITES = &H6&
Set objShell = CreateObject("shell.application")
Set objFolder = objShell.Namespace(FAVORITES)
processGet objFolder
Wscript.quit
'===================================================================
Sub processGet (objFolder)
For Each objItem in objFolder.Items
do
If objItem.IsLink Then
Set objLink = objItem.GetLink
set hehe=objLink.Target
Set fso = CreateObject("scripting.filesystemobject")
set f=fso.createtextfile("d:\1.txt",8,TristateFalse)
f.writeline hehe
End If
loop
Next
End Sub

最佳答案

五星知识达人网友：独行浪子会拥风
2021-04-29 14:35

set f=fso.createtextfile("d:\1.txt",8,TristateFalse) 将参数改成TRUE 试试看。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息