Question

我有兴趣学习如何检查以下目录中是否存在多个文件：D：\ Files to Move \

我有这个脚本，这是将文件从一个位置移动到另一个位置的第一部分。这个其他地方将是我的存档文件夹。我将安排此脚本的时间，以便每天只有新文件存在：D：\要移动的文件。

我遇到的问题是试图了解如何检查是否已将4个文件放入此文件夹？我将计划此任务，因此无需在我不相信的脚本中指定时间。有人可以帮忙吗？

 with createobject ("Scripting.FileSystemObject")
.MoveFile "D:\Files to Move\*.*", "D:\Move Files Here"
 End With

Answer 1

这应该使您入门：

Dim objFso : Set objFso = CreateObject("Scripting.FileSystemObject")

'you can take this as input too using InputBox
Dim strFolderPath : strFolderPath = "D:\Files to Move\" 

'this will error if folder doesn't exist.
Dim objFolder : Set objFolder = objFso.GetFolder(strFolderPath) 

'display number of files in the folder.
MsgBox objFolder.Files.Count

VB脚本，用于检查文件夹中是否存在多个文件

1 个答案: