Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/react-native/7.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Vba 删除未更新的文件_Vba_Delete File - Fatal编程技术网

Vba 删除未更新的文件

Vba 删除未更新的文件,vba,delete-file,Vba,Delete File,是否有人知道是否可以删除某个特定时间内未更新的文档。我试图在每晚12:01重新填充空白检查表,如果没有人输入当天的检查信息,则删除当天的表格,这样我就不会保存多余的空白检查表。是的,这是可能的。这是基本代码。您需要更改if语句以反映正确的时间段 Dim oFileObj Set oFileObj = Wscript.CreateObject("WScript.FileSystemObject") oFileObj.GetFile("File.Name") if oFileObj.DateLa

是否有人知道是否可以删除某个特定时间内未更新的文档。我试图在每晚12:01重新填充空白检查表,如果没有人输入当天的检查信息,则删除当天的表格,这样我就不会保存多余的空白检查表。

是的,这是可能的。这是基本代码。您需要更改if语句以反映正确的时间段

Dim oFileObj
Set oFileObj = Wscript.CreateObject("WScript.FileSystemObject")
oFileObj.GetFile("File.Name")  
if oFileObj.DateLastModified < NOW then
    oFileObj.DeleteFile("File.Name")
end if
Set oFileObj = Nothing 
leobj的尺寸 leObj的集合=Wscript.CreateObject(“Wscript.FileSystemObject”) oFileObj.GetFile(“File.Name”) 如果oFileObj.DateLastModified只是想一想:如果有人输入检验信息并随后将其删除怎么办?它仍然会生成一张空白的检查表。。。