代码如下：
Set shell = CreateObject("WScript.Shell")
strFolder = WScript.Arguments.Item(0) 'shell.SpecialFolders("Startup")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
WScript.Echo vbCrLf & objFolder.Path & "\"
For Each objFile In colFiles
Ext = objFSO.GetExtensionName(objFile)
If Ext = "lnk" or Ext = "LNK" Then
Target = shell.CreateShortcut(objFile).targetpath
Set objFileB = objFSO.GetFile(Target)
Wscript.Echo objFile.Name & " - " & Target & " [" & objFileB.DateCreated & " " & objFileB.Size & "]"
Else
Wscript.Echo objFile.Name & " [" & objFile.DateLastModified & " " & objFile.Size & "]"
End If
Next
这个是抓启动位置的档案，如果是lnk档就显示对应的档案
我运行时他显示阵列索引超出范围，请问一下这段vbs的正确使用方式
Set shell = CreateObject("WScript.Shell")
strFolder = WScript.Arguments.Item(0) 'shell.SpecialFolders("Startup")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strFolder)
Set colFiles = objFolder.Files
WScript.Echo vbCrLf & objFolder.Path & "\"
For Each objFile In colFiles
Ext = objFSO.GetExtensionName(objFile)
If Ext = "lnk" or Ext = "LNK" Then
Target = shell.CreateShortcut(objFile).targetpath
Set objFileB = objFSO.GetFile(Target)
Wscript.Echo objFile.Name & " - " & Target & " [" & objFileB.DateCreated & " " & objFileB.Size & "]"
Else
Wscript.Echo objFile.Name & " [" & objFile.DateLastModified & " " & objFile.Size & "]"
End If
Next
这个是抓启动位置的档案，如果是lnk档就显示对应的档案
我运行时他显示阵列索引超出范围，请问一下这段vbs的正确使用方式