【已解决】vbs 有关for each ……in的用法

bingxing8000

1. Dim WSHShell'定义变量
   
2. set WSHShell=CreateObject("WScript.shell") '创建一个能与操作系统沟通的对象WSHShell
   
3. Dim fso,dc
   
4. Set fso=CreateObject("Scripting.FileSystemObject")'创建文件系统对象
   
5. set dc=fso.Drives '获取所有驱动器盘符
   
6. For Each d in dc
   
7. Dim str
   
8. WSHShell.run("net share"&d.driveletter &"$ /delete")'关闭所有驱动器的隐藏共享
   
9. next
   
10. WSHShell.run("net share admin$ /delete")
    
11. WSHShell.run("net share ipc$ /delete")'关闭admin$和ipc$管道共享
    

复制代码

在网上找到以上代码，请问：“For Each d in dc ”这句里面的“d”是哪来的？而且为什么是“d"，不是“a”，也不是“c”？

forfiles

如果把所有的变量d都改成a会发生什么事情？

bingxing8000

回复 2# forfiles


试过了，报错。但是还是不明白。

CrLf

遍历对象中的元素
http://www.w3school.com.cn/vbscript/vbscript_looping.asp

1. Set fso = CreateObject("Scripting.FileSystemObject")
   
2. 
   
3. For Each file In fso.GetFolder("c:").Files
   
4.         WScript.Echo  "[" & file.DateLastModified & "] " & file.Name
   
5. Next
   
6. 
   
7. Set fso = Nothing

复制代码

大致相当于批的：

1. dir /b /a-d c:\>files.txt
   
2. 
   
3. for /f "delims=" %%a in (files.txt) do (
   
4.     echo [%%~ta] %%~nxa
   
5. )
   
6. 
   
7. del files.txt>nul

复制代码

forfiles

回复 3# bingxing8000


    能否把你修改之后的代码和报错信息一起贴出来看看？

czjt1234

Dim d

不过是一个变量没有定义而已

virus_bat

试着看一看

bingxing8000

谢谢，各位。