VBS를 사용하는 모든 사용자의 데스크톱 파일을 삭제하려면 어떻게해야합니까?

Question

나는 VBS를 사용하여 데스크톱에서 특정 파일을 삭제하는 다양한 방법을 검색하고 시도해 보았습니다.

내 코드는 결코 오류가 없습니다. 단순히 파일을 삭제하지 않습니다. Delete.txt 테스트 파일이든 실제로 제거하려고하는 .url 및 .website 파일이든 상관 없습니다. 다음은 도움이 된 후 수정 된 코드입니다.

Set Shell = CreateObject("WScript.Shell") 
Set FSO = CreateObject("Scripting.FileSystemObject") 
DesktopPath = Shell.SpecialFolders("Desktop") 
A = DesktopPath & "\Kronos Workforce Central(R).url" 
FSO.DeleteFile A 
B = DesktopPath & "\Kronos Workforce Central(R).website" 
FSO.DeleteFile B 

Line: 6

Char: 1

Error: File not found

Code: 800A0035

Source: Microsoft VBScript run time error

내 컴퓨터 FSO가 무엇인지하지 않는 이유는 무엇입니까? 알려진 다른 파일을 바탕 화면에서 삭제하는 다른 방법이 있습니까? "아니오 FSO 방법으로 인수의 인용"에 대한

Answer 1

하지 대답하지만, 증거 :

>> s = DesktopPath & "\Kronos Workforce Central(R).url" 
>> ss = qq(s) 
>> WScript.Echo s 
>> WScript.Echo ss 
>> WScript.Echo FSO.FileExists(s) 
>> WScript.Echo FSO.FileExists(ss) 
>> 
C:\Documents and Settings\eh\Desktop\Kronos Workforce Central(R).url 
"C:\Documents and Settings\eh\Desktop\Kronos Workforce Central(R).url" 
-1 
0 

은 위의 파일 C:\Documents and Settings\eh\Desktop\Kronos Workforce Central(R).url이 존재한다는 것을 증명해야한다. 이 :

>> WScript.Echo FSO.FileExists(s) 
>> FSO.DeleteFile s 
>> WScript.Echo FSO.FileExists(s) 
>> 
-1 
0 
>> FSO.DeleteFile s 
>> 
Error Number:  53 
Error Description: File not found 

는 FSO.DeleteFile <FileSpecWithNoSpuriousQuotes>는 (N 기존) 파일을 제거하는 올바른 방법이라고 당신이 존재하지 않는 파일을 보내 겠하려고 할 때 "파일을 찾을 수 없습니다"오류를 얻을 것이다 증명한다.

.DeleteFile '오류없이 작동하지 않는 경우'다음에 "On Error Resume Next"가 활성화되어 있습니다. 항상 잘못된 생각입니다. OERN을 사용하지 않고 오류가 없다면, .DeleteFile이 파일을 삭제했습니다. 아마도 잘못된 데스크탑을 보았을 것입니까?