标题: [求助]请问这个vbs的使用方式 [打印本页]

---

作者: sylovanas     时间: 2008-5-4 01:49    标题: [求助]请问这个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的正确使用方式

---

作者: slore     时间: 2008-5-4 09:20
拖一个文件夹上去就可以了。


要想是启动文件夹，第2句的参数和注释换下