VBS hjälp att få in loop, enkel kod

Trädvy Permalänk
Medlem
Plats
Göteborg
Registrerad
Jan 2014

VBS hjälp att få in loop, enkel kod

Tjena.
Håller på med en väldigt simpel kod som ser ut såhär:

Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("C:\Users\Johannes\AppData\Roaming\omweqdl6iy.exe")) Then
Dim fso
fso.DeleteFile("C:\Users\Johannes\AppData\Roaming\omweqdl6iy.exe")
End If

Detta fungerar hur bra som helst utan några problem, men lyckas inte få in en loop, testat:

Set fso = CreateObject("Scripting.FileSystemObject")
Do
If (fso.FileExists("C:\Users\Johannes\AppData\Roaming\omweqdl6iy.exe")) Then
Dim fso
fso.DeleteFile("C:\Users\Johannes\AppData\Roaming\omweqdl6iy.exe")
End If
Loop

Då får jag felmeddelandet Åtkomst Nekad.

Om någon besitter kunskap hur jag kan lösa detta skulle jag vara väldigt tacksam, eller om någon skulle vilja rätta till koden ( ingen skoluppgift eller så )

Vill alltså få in en loop så att så fort det dyker upp ett program som heter omweqdl6iy.exe så ska det raderas.

Helt nybörjare på detta så ha lite överseende om jag inte skulle förstå något

Tröttnat på att ha signatur

Trädvy Permalänk
Medlem
Plats
Karlskrona
Registrerad
Jan 2006

@imjohannes5670:
Måste sätta ett villkor på din loop, typ nåt sånt här:

Set fso = CreateObject("Scripting.FileSystemObject") Dim Quit As Boolean Quit = True Do while Quit = True If (fso.FileExists("C:\Users\Johannes\AppData\Roaming\omweqdl6iy.exe")) Then fso.DeleteFile("C:\Users\Johannes\AppData\Roaming\omweqdl6iy.exe") End If Loop

Dock skulle jag rekommendera att du tillför nåt sätt att stänga och polla varje x sekunder istället

Corsair 16GB (4x4096MB) CL9 1600Mhz | Asus P8Z77-V PRO |
Samsung SSD Basic 830-Series 256GB | Intel Core i7 3770K 3,5Ghz |
Asus Xonar Essence STX | Noctua NH-U9B SE2 | Antec Performance One P280 | Corsair HX 850W 80+ Gold Modulär | MSI GTX 770

Trädvy Permalänk
Medlem
Plats
Göteborg
Registrerad
Jan 2014

@NoPaiN^:

Tack så mycket för svaret
Som sagt nybörjare

Tröttnat på att ha signatur