根据文件夹创建日期删除数据.vbs

最新推荐文章于 2022-05-08 12:00:00 发布

大吉四海の牛摸王

最新推荐文章于 2022-05-08 12:00:00 发布

阅读量199

点赞数

分类专栏： vba

本文链接：https://blog.csdn.net/rascal789/article/details/119217521

版权

vba 专栏收录该内容

3 篇文章 0 订阅

订阅专栏

Dim folder_name(2)

Set fso=wscript.createobject("scripting.filesystemobject")



folder_name(1)="C:\LocalRoot"
folder_name(2)="C:\Vision\Send"

For q=1 To 2
		Set more_file=fso.GetFolder(folder_name(q)).Files
		
		For Each mf In more_file '删除 folder_name 下的文件
			mf.Attributes=0'去文件属性
			mf.Delete
		Next
		
		set sub_fd=fso.getfolder(folder_name(q)).SubFolders 'folder_name下的子目录
		
		for each i in sub_fd
			i.attributes=0	
			fddate=fso.getfolder(i.path).DateCreated
			
			If datediff("d",fddate,now) >1 Then
			'ElseIf Not fso.GetFileName="license.txt" Or fso.GetFileName="Patient.xml" Then
				fso.getfolder(i.path).Delete
			end if
		next
		
	If q=1 Then 
		if not fso.FolderExists(folder_name(q) &"\(ServerStatus)") then
		fso.CreateFolder(folder_name(q) &"\(ServerStatus)")
		end if
		
		fso.CopyFile "\\192.0.0.4\netroot\license.txt", folder_name(q) & "\license.txt", True
		fso.CopyFile "\\192.0.0.4\netroot\Patient.xml", folder_name(q) & "\Patient.xml", True
	End If

Next


msgbox "1天前的数据已删除！"



	
'msgbox "文件创建时间："&fn.DateCreated
'msgbox "文件最后修改时间："&fn.DateLastModified
'msgbox "文件最后访问时间："&fn.DateLastAccessed


'If Not (fso.FileExists("c:\test.txt")) then
'set a=fso.createtextfile("c:\test.txt", true)'创建文件
'Else
'Set a=fso.OpenTextFile("c:\test.txt",8)
'End If 
'	a.writeline(n)'写入文件



	'Set fls=fso.getfolder(i.path).files	
			'for each n in fls
			'n.attributes=0
	    	'n.Delete
			'next  





'删除“D：\yy”目录下的所有文件及文件夹
'Const DeleteReadOnly = True
'Set objFSO = CreateObject("Scripting.FileSystemObject")
'objFSO.DeleteFile("d:\yy\*.*"), DeleteReadOnly
'strComputer = "."
'Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
'Set colSubfolders2 = objWMIService.ExecQuery _
'        ("Associators of {Win32_Directory.Name='" & "d:\yy" & "'} " _
'            & "Where AssocClass = Win32_Subdirectory " _
'                & "ResultRole = PartComponent")

'    For Each objFolder2 in colSubfolders2
'        objFSO.deleteFolder objFolder2.name , DeleteReadOnly
            
'    Next