如何从子文件夹中删除特定文件？ [英] How to delete specific files from sub folders?

问题描述

我有一个像'exportreport'这样的文件夹里面有60到70个不同的文件夹。

现在我想用vbscript删除所有子文件夹中的文件，我试过这个：

I have one folder like 'exportreport' having 60 to 70 different folders inside.
Now i want to delete files from all subfolders using vbscript, I have tried this:

Const DeleteReadOnly = TRUE

Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.DeleteFile("D:\exportreport\*.xls"), DeleteReadOnly

推荐答案

你需要递归地做一下，看一下（它只是例如）：

You need to do it recursively, take a look (it is just an example):

sub RecursiveDeleteByExtension(byval strDirectory,strExtensionsToDelete)
	DIM objFolder, objSubFolder, objFile
	DIM strExt

	set objFolder = objFSO.GetFolder(strDirectory)
	for each objFile in objFolder.Files
		for each strExt in SPLIT(UCASE(strExtensionsToDelete),",")
			if RIGHT(UCASE(objFile.Path),LEN(strExt)+1) = "." & strExt then
				wscript.echo "Deleting:" & objFile.Path
				objFile.Delete
				exit for
			end if
		next
	next	
	for each objSubFolder in objFolder.SubFolders
		RecursiveDeleteByExtension objSubFolder.Path,strExtensionsToDelete
	next
end sub

这篇关于如何从子文件夹中删除特定文件？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！