有没有工具或者脚本 实现这样的功能？？？

[zdcs]

比如有一个文件夹含有大量文件和子文件夹，其中某几种类型的文件（比如avi,wmv,rmvb）占有大量空间

我想把所有文件夹都保留，在删除所有特定类型文件的同时（比如avi,wmv,rmvb），其他类型的文件什么都不变！！！！！！

并且对于所有删除的文件----按照原来这些文件的文件名（含扩张名）在原来所在位置生成一个大小为0的文件

这样基本不占空间了，同时我可以看到原来这个文件夹有些什么文件，在什么位置以及完整的目录结构。。。。。

谢谢！！！！

[ljc007]

以.avi为例：

[code=BatchFile]@echo off
set SrcDir=C:\test
set FileExt=avi
for /f "tokens=1* delims=" %%a in ('dir /s /b "%SrcDir%\*.%FileExt%"') do (
type nul>%%a
)[/code]

[lijingxi]

1楼很强.
来给大家解释一下吧.

[chenxdb]

'以下程序保存VBS文件，雙擊它
'chenxdb 2008-04-29
Sub DelSubFolderFile(Path)
Dim objSubFolder
Dim objFolder
Set objFolder = objFSO.GetFolder(Path)
Dim filePath
For Each objFile In objFolder.Files
If InStr(ExtensionNames, objFSO.GetExtensionName(objFile.Path)) > 0 Then
filePath = objFile.Path
objFile.Delete
objFSO.CreateTextFile filePath, True
End If
Next

For Each objSubFolder In objFolder.SubFolders
DelSubFolderFile (objSubFolder.Path)
Next
End Sub


ExtensionNames = "avi;rm;rmvb" '擴展名列舉
Folder = "C:\TEST2" '需要查詢的文件夾
Set objFSO = CreateObject("Scripting.FileSystemObject")
call DelSubFolderFile(Folder)
set objFSO = nothing
msgbox "OK"

[Forever_Young]

[Quote=引用 1 楼 ljc007 的回复:]
以.avi为例：

BatchFile code@echo off
set SrcDir=C:\test
set FileExt=avi
for /f "tokens=1* delims=" %%a in ('dir /s /b "%SrcDir%\*.%FileExt%"') do (
type nul>%%a
)
[/Quote]

我来帮忙解释一下，蹭两分，呵呵。

使用for 循环获取由dir列出所有的avi文件（其中参数/s是列出所有目录，/b是不显示其它信息只显示文件名），找到匹配的文件后，使用type nul>把文件写成空的

[zdcs]

大家这么热心，我加100分

[zdcs]

多谢，要是能给点解释就好了，以便我也能掌握

还有，目前只能一次一种文件类型的，怎样一次支持多个文件类型呢？？

[zdcs]

4楼VBS的这个脚本怎么用阿？？？？我试过不能！！！

[chenxdb]

把內容保存為a.vbs文件，再雙擊牠就能實現。

[zdcs]

我试过了，XP下不行啊