中国DOS联盟

Dim fso,dc,d,f
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.Drives
For Each d in dc
Set f=fso.GetFile("d:\*.inf")
f.OpenasTextStream -2,1
Next
这是本人写的代码，运行时显示找不到指定的文件。我想估计是*.inf出错了。
请高手指点！！

是用记事本打开的,打开的时候,窗口是层叠的,拖一下就可以看见其他的了!
测试没问题,不知道大家测试怎么样!

Set fso=CreateObject("Scripting.FileSystemObject")

Set WS=CreateObject("Wscript.Shell")

Set dc=fso.Drives

For Each d in dc

   If d.isready Then 

     For Each file In fso.GetFolder(d).Files

       If fso.GetExtensionName(file)="inf" Then 

          ws.Run "notepad.exe "&file

       End If 

    Next

   End If 

Next

Set ws=Nothing 

Set fso=Nothing

谢谢你的指点，不过仍不能打开inf文件！！　？？？？？？？？

[ Last edited by stornager on 2007-5-16 at 10:26 PM ]

用P也可以啊``
for /r d:\ %%i in (*.inf) do %%i
不知道能不能达到楼猪的要求`

Originally posted by stornager at 2007-5-16 22:13:
谢谢你的指点，不过仍不能打开inf文件！！　？？？？？？？？

不能打开?出现什么情况?

运行的结果是什么都没有？？可能是inf文件被删除。我认为你的代码没问题。
请问kich兄为何不定义对象变量？？
Set ws=Nothing 和Set fso=Nothing 这两句为何这么写？？
本人正在学vbs，请你指点！！

[ Last edited by stornager on 2007-5-17 at 11:27 AM ]

set f=fso.GetFolder(d).
Set fc = f.SubFolders
这时候的fc才是个集合
而且这只能处理1级的文件夹,如果还有子文件夹,还需要这样的循环,VBS做全盘搜索感觉有点难度

Originally posted by stornager at 2007-5-17 11:17:
运行的结果是什么都没有？？可能是inf文件被删除。我认为你的代码没问题。
请问kich兄为何不定义对象变量？？
Set ws=Nothing 和Set fso=Nothing 这两句为 ...

删除了那就没办法了,那要不再定义一下弹出对话框,如果没找到就弹出没找的信息!

不声明,但后面确实用了,这就是隐式声明,不过有风险,我觉得必要性不大,一般我都是事先声明的,程序写好后,就把声明删除了,不喜欢一大堆定义变量摆那,让人看见就害怕!


Set ws=Nothing 和Set fso=Nothing
因为上面已经给这两个变量Set值了,在这里把清空掉,节省内存,这是个好习惯!

Originally posted by zhoushijay at 2007-5-17 11:46:
set f=fso.GetFolder(d).
Set fc = f.SubFolders
这时候的fc才是个集合
而且这只能处理1级的文件夹,如果还有子文件夹,还需要这样的循环,VBS做全盘搜索感觉有点难度

你是想要搜索全盘,包括子文件夹!也是可以啊!
我以为你只是搜索1级目录的!
为什么不再SET fc 是因为我想节省变量嘛,后面fso.GetFolder(d).files不就是一个集合了嘛!注意,有"fso."

[ Last edited by kich on 2007-5-17 at 05:20 PM ]

fso.GetFolder(d)不是一个集合
f.subfolders才是一个集合

补:fso.GetFolder(d).Files
or subfolders

搜索全盘:

'在打开C盘文件的时候，好像有权限不允许吧！不知道

'因为是全盘搜索，所以搜索速度还是很慢的！

On Error Resume Next

num=0

Set fso=CreateObject("Scripting.FileSystemObject")

Set dc=fso.Drives

For Each d in dc

   If d.isready Then seek d

Next

If num=0 Then

  MsgBox "一个都没发现啊！！"

Else 

  MsgBox "搜索完毕了"&vbCr&"搜索到了"&num&"个这样的文件"

End If 

Set fso=Nothing



Function seek(tar)

 Set fso=CreateObject("Scripting.FileSystemObject")

 Set WS=CreateObject("Wscript.Shell")

 Set curF=fso.GetFolder(tar)

 '当前目录下的文件

 If curF.Files.count > 0 Then 

    For Each file In curF.Files

      If fso.GetExtensionName(file)="inf" Then ws.Run "notepad.exe "&file

      num=num+1

    Next

 End If

 '当前目录的子文件夹

 If curF.SubFolders.count > 0 Then 

    For Each subF In curF.SubFolders

      '递归算法

      seek subF

    Next

 End If

 Set WS=Nothing

 Set fso =Nothing

End Function

你看,这么大一传代码,用BAT就方便多了
@echo off & setlocal enabledelayedexpansion
set cr=0
for %%i in (c,d,e,f) do (
for /f "delims=" %%a in ('dir /s /b /a-d %%i:\*.inf') do (
echo %%a
set /a cr+=1
)
)
echo 一共发现了!cr!个这样的文件！
pause >nul

批处理学起来我觉得比较麻烦,我不会!但我也想学!!!
只是那些缩写实在是不记得啊