vbscript - pendrive - ¿Cómo pausar el script VBS mientras se elimina la carpeta?

window2 vbs

Question

Estoy escribiendo un VBScript para SyncBack (utilidad de copia de seguridad) en el que estoy eliminando versiones anteriores de una copia de seguridad.

 '''' # if current version is greater than the total allowed number of versions,
'''' # delete the oldest folder
If versionNumber > totalVersions Then
delDirNum = versionNumber - totalVersions
If delDirNum > 0 Then
DelFoldername = containerFileOrFolder & "/" & delDirNum & "_"
'''' " # Ignore this line SO Prettify doesn''t do VB very well.
If fso.FolderExists(DelFoldername) = True Then
WScript.Echo "Deleting: <" & DelFoldername & ">"
Set oFolder = objFileSystem.GetFolder(DelFoldername)
oFolder.Delete()
WScript.Sleep 2000
If fso.FolderExists(DelFoldername) = False Then
WScript.Echo "Deleted <" & DelFoldername & "> successfully"
Else
WScript.Echo "Could not delete <" & DelFoldername & ">"
End If
End If
End If
End If

Sin embargo, ocasionalmente la carpeta (que contiene la copia de seguridad anterior) que estoy intentando eliminar tarda más de 2 segundos en eliminar WScript.Sleep 2000 y me preguntaba si había alguna manera de hacer que el script espere hasta que la carpeta haya sido borrado antes de que se imprima "Deleted <foldername> successfully".

Idealmente, me encantaría algo como:

While oFolder.IsDeleting() Then
WScript.Echo "Still deleting..."
WScript.Sleep 2000
Loop

Pero soy consciente de que probablemente ese no sea el caso.

Answer 1

Dormir en bucle con contador, la nota asume que el host de CScript hace que el mensaje "Aún borrar" sea un poco más variable. La demora en el ejemplo es de 30 segundos.

Dim loopCount : loopCount = 0
WScript.StdOut.Write "Deleting ."
Do While fso.FolderExists(DelFoldername) And loopCount < 30
WScript.Sleep 1000
WScript.StdOut.Write "."
loopCount = loopCount + 1
Loop
WScript.StdOut.Write vbCrLf
If fso.FolderExists(DelFolderName) Then
'''' # Do stuff due to failure.
End If

Answer 2

Puede mover la eliminación a su propia función y agregar un tiempo de espera. por lo tanto, si la carpeta no se elimina en un período de tiempo razonable, la función regresará sin borrar la carpeta. Algo como esto:

Function DeleteFolder(Folder, Timeout)
''Folder is the full file path of the folder
''Timeout is the amount of time to wait for the folder to be deleted (in seconds).
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FolderExists(Folder) Then
fso.DeleteFolder Folder, True
start = Now()
do while fso.FolderExists(Folder) AND DateDiff("s",start,Now()) < Timeout
wscript.sleep 1000
Loop
End If
If fso.FolderExists(Folder) Then
DeleteFolder = False
Else
DeleteFolder = True
End If
End Function 

Luego llama a la función de esta manera

If DeleteFolder("C:/New Folder", 5) Then
Wscript.Echo "Folder Deleted"
Else
Wscript.Echo "Folder could NOT be deleted"
End If

ADVERTENCIA: no se recomienda el uso de On Resume Resume Next .
Este comando hará que se ignoren todos los errores y solo se debe usar bajo la supervisión de un adulto.

Los efectos secundarios pueden incluir: Errores extraños en otras partes de un guión, acción inesperada del guión, dolor de cabeza, mareos, confusión, enojo o un impulso repentino de maldecir. En casos raros, se sabe que este comando causa sangrado en los ojos y los oídos. El uso de este comando puede provocar pérdida de cabello y trabajo.

Answer 3

While fso.FolderExists(DelFoldername)
WScript.Echo "Still deleting"
WScript.Sleep 1000
Wend

Answer 4

¿Por qué no seguir comprobando si la carpeta aún existe y salir una vez que se ha ido?

''Hacer'' Si la carpeta no existe, salga de Do ''Loop