使用 经典ASP代码 列出“我的电脑”文件夹中的项目

以下 ASP代码 用于列出“我的电脑”文件夹中的项目。为此需要对象“Shell.Application”。

1. Const MY_COMPUTER = &H11&
   
2. 
   
3. Set objShell = Server.CreateObject("Shell.Application")
   
4. Set objFolder = objShell.Namespace(MY_COMPUTER)
   
5. Set objFolderItem = objFolder.Self
   
6. 
   
7. Response.Write(objFolderItem.Path&"<br />")
   
8. 
   
9.         Set colItems = objFolder.Items
   
10.                 For Each objItem in colItems
    
11.                         Response.Write(objItem.Name)
    
12.                         Response.Write("<br />")
    
13.                 Next
    
14.         Set colItems = Nothing
    
15. 
    
16. Set objShell = Nothing
    
17. Set objFolder = Nothing
    
18. Set objFolderItem = Nothing
    

复制代码