지정한 일수 파일을 삭제할 수 있는 vbs 스크립트

807 단어
 
  
Const FilePath = "E:\log" '

Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(filepath)
Sub ShowSubFolders(Folder)
  For Each Subfolder in Folder.SubFolders
    Set Files = subfolder.Files
     If Files.Count <> 0 Then
     For Each File In Files
           If File.DateLastModified                  FSO.DeleteFile(Subfolder.Path & "\" & File.Name) '
                 'Wscript.Echo Subfolder.Path & "\" & File.Name     '    
           End If
           Next
     End If
     ShowSubFolders Subfolder
  Next
End Sub

좋은 웹페이지 즐겨찾기