VBS 스크립트 파일 찾기 및 삭제

Question

컴퓨터에서 특정 파일을 찾아서 삭제하려고합니다. 코드는 부분적으로 만 작동하고

Const DeleteReadOnly = True 

Set oFSO = CreateObject("Scripting.FileSystemObject") 
Set oWshShell = CreateObject("WScript.Shell") 
sDir = oWshShell.ExpandEnvironmentStrings("%temp%\dir.txt") 
sFileName = "\date.vbs" 

If oFSO.FileExists(sDir) Then oFSO.DeleteFile(sDir) 

For Each oDrive In oFSO.Drives 
if oDrive.DriveType = 2 Then Search oDrive.DriveLetter 
Next 

Set oFile = oFSO.OpenTextFile(sDir, 1) 
aNames = Split(oFile.ReadAll, VbCrLf) 
oFile.Close 
For Each sName In aNames 
If InStr(1, sName, sFileName, 1) > 0 Then WScript.Echo sName 
Next 

dim filesys 
Set filesys = CreateObject("Scripting.FileSystemObject") 
filesys.CreateTextFile "\date.vbs", True 
If filesys.FileExists("\date.vbs") Then 
filesys.DeleteFile "\date.vbs" 
Wscript.Echo("File deleted") 
End If 


Sub Search(sDrive) 
WScript.Echo "Scanning drive " & sDrive & ":" 
oWshShell.Run "cmd /c dir /s /b " & sDrive & ":\" & sName & " >>" & sDir, 0, True 
End Sub 

:

이

내 코드입니다. "date.vbs"파일이 루트 폴더 (C : \ date.vbs)에 있으면 삭제되지만 폴더 (C : \ backup \ date.vbs)에 있으면 삭제되지 않습니다. 루트가 아니라 컴퓨터의 어느 곳에 있더라도 파일을 삭제할 수 있도록 변경해야하는 코드 변경을 아십니까?

감사합니다. V.

UPDATE : 코드는 거의 지금 노력하고 있습니다

. 파일을 삭제할 최종 문제가 생겼습니다. 속성을 읽기 전용에서 일반으로 변경할 수 있지만 여전히 액세스 거부 오류가 발생합니다.

Const DeleteReadOnly = True 
Dim oFSO, oDrive, sFileName, ws, WshS, fso, usrProfile, oFolder, skypefolder 

Set oFSO = CreateObject("Scripting.FileSystemObject") 
sFileName = "Skype.exe" 

Set WshS = WScript.CreateObject("WScript.Shell") 
usrProfile = WshS.ExpandEnvironmentStrings("%UserProfile%") 
skypefolder = "C:\Program Files (x86)\Skype\" 

For Each oDrive In oFSO.Drives 
    If oDrive.DriveType = 2 Then Recurse oFSO.GetFolder(skypefolder) 
Next 

Sub Recurse(oFolder) 
    Set oFile = CreateObject("Scripting.FileSystemObject") 
    Dim oSubFolder, oFile 

    If IsAccessible(oFolder) Then 
    For Each oSubFolder In oFolder.SubFolders 
    Recurse oSubFolder 
    Next 
    WScript.Echo oFolder.Path 

    For Each oFile In oFolder.Files 
     If oFile.Name = sFileName And oFile.Attributes And 1 Then 
     oFile.Attributes = 0 
     oFile.Delete True 

     End If 
     Next 
    End If 
End Sub 

Function IsAccessible(oFolder) 
    On Error Resume Next 
    IsAccessible = oFolder.SubFolders.Count >= 0 
End Function 

도움을 주셔서 감사합니다 :

이 내 코드입니다!

코드 스크립트를 ADMIN (으)로 실행하는 데 사용합니다. 그 후 MessageBox를 보여주기 시작했습니다. 콘솔에서 실행되기 전에.

If WScript.Arguments.Named.Exists("elevated") = False Then 

    CreateObject("Shell.Application").ShellExecute "wscript.exe", """" &  WScript.ScriptFullName & """ /elevated", "", "runas", 1 
    WScript.Quit 
Else 

    Set oShell = CreateObject("WScript.Shell") 
    oShell.CurrentDirectory =  CreateObject("Scripting.FileSystemObject").GetParentFolderName(WScript.ScriptFullName) 
    'WScript.Echo("Now running with elevated permissions") 

End If 

그래서이 코드에는 문제가 있다고 생각됩니다.

Answer 1

당신의 접근 방식은 너무 복잡합니다. 간단한 재귀 함수를 사용하여

Option Explicit 

Const DeleteReadOnly = True 
Dim oFSO, oDrive, sFileName 

Set oFSO = CreateObject("Scripting.FileSystemObject") 
sFileName = "date.vbs" 

For Each oDrive In oFSO.Drives 
    If oDrive.DriveType = 2 Then Recurse oDrive.RootFolder 
Next 

Sub Recurse(oFolder) 
    Dim oSubFolder, oFile 

    If IsAccessible(oFolder) Then 
    For Each oSubFolder In oFolder.SubFolders 
    Recurse oSubFolder 
    Next 

    For Each oFile In oFolder.Files 
     If oFile.Name = sFileName Then 
     'oFile.Delete ' or whatever 
     End If 
    Next 
    End If 
End Sub 

Function IsAccessible(oFolder) 
    On Error Resume Next 
    IsAccessible = oFolder.SubFolders.Count >= 0 
End Function 

는 대소 문자를 구분 파일 이름 비교를 달성하기 위해, 당신은 연습으로

If StrComp(oFile.Name, sFileName, vbTextCompare) = 0 Then 

Answer 2

을 사용할 수 또한 특정 파일을 찾기 위해 WMI 서비스를 사용할 수 있습니다.

Function find_file(filename) 

    Dim objWMIService, colItems, objItem, strComputer 
    strComputer = "." 

    Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set colItems = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE FileName='" & filename & "'",,48) 

    For Each objItem in colItems 
     msgbox "Found " & objItem.Name & " in " objItem.Path 
    Next 

End Function 

참고 : 당신은 그냥 폴더에 모든 드라이브의 파일을 조회, 모든 폴더를 통해 갈 필요가 없습니다 함수의 결과를 반환하기 전에 그것은 오래 걸릴 수 있습니다.