Écrire ce fichier à l'aide de CopyHere sans l'aide de WScript.Le sommeil

J'ai écrit un petit VBScript pour crée un .fichier zip et copier le contenu d'un dossier spécifié .fichier zip.

J'ai copier les fichiers un par un, pour une raison (je sais que je peux faire tout ça à la fois). Cependant, mon problème est que quand j'essaye de copier un par un sans WScript.Dormir entre chaque itération de boucle, je reçois un "Fichier non trouvé ou pas l'autorisation de lecture." erreur; si je place un WScript.Sleep 200 après chaque écriture, il fonctionne, mais pas 100% du temps.

Assez bien que j'aimerais me débarrasser de la fonction de Sommeil et ne pas compter sur ce que selon la taille du fichier, il peut prendre plus de temps pour écrire donc 200 millisecondes peut-être pas assez etc.

Comme vous pouvez le voir avec le petit morceau de code ci-dessous, je boucle sur les fichiers, puis, s'ils correspondent à l'extension de je de les placer dans l' .zip (zipFile)

For Each file In folderToZip.Items
    For Each extension In fileExtensions
        if (InStr(file, extension)) Then
            zipFile.CopyHere(file)
            WScript.Sleep 200
            Exit For
        End If
    Next
Next

Des suggestions sur comment je peux cesser de compter sur la fonction de Veille?

Grâce

L'autre façon, j'ai pensé à faire c'était de faire un tableau et de les placer tous les fichiers qui ont passé le filtre en elle... mais je pouvais utiliser le tableau dans le CopyHere fonction. Personne ne sait comment?
Non, vous ne pourriez pas utiliser la matrice de toute autre manière que l'itération et à en faire quasiment la même chose. Qu'en copiant le passé fichiers dans un dossier temp et ajoutez-les tous à la fois, à partir de là?
Ne sais pas si ça va faire une différence. Je pense que je pourrais obtenir la même erreur que la copie d'un fichier. Comment voulez-vous ajouter en une seule fois, si?
Par copier/déplacer le dossier de l'objet, et non pas les fichiers à l'intérieur. Juste une pensée. Vous pouvez aussi tout simplement essayer et de vivre avec elle: Ensemble On Error Resume Next/On Error GoTo 0 autour du défaut de déclaration et boucle tant qu'il y a une erreur. Pas particulièrement agréable, je le sais. :-\

OriginalL'auteur mlevit | 2010-05-22

3

C'est comment nous le faisons en VB6. Après l'appel de CopyHere sur le zip de nous attendre pour async compression pour terminer comme ça
```
    Call Sleep(100)
    Do
        Do While Not pvCanOpenExclusive(sZipFile)
            Call Sleep(100)
        Loop
        Call Sleep(100)
    Loop While Not pvCanOpenExclusive(sZipFile)
```
où la fonction d'assistance ressemble à ceci
```
Private Function pvCanOpenExclusive(sFile As String) As Boolean
    Dim nFile       As Integer

    nFile = FreeFile
    On Error GoTo QH
    Open sFile For Binary Access Read Lock Write As nFile
    Close nFile
    pvCanOpenExclusive = True
QH:
End Function
```
Agréable effet secondaire est que, même si la compression échoue, cela ne finiront pas dans une boucle infinie.

Le problème vient lors de l'accès au fichier zip quand il est fermé par zipfldr.dll quand pvCanOpenExclusive renvoie la valeur true.

Cela ressemble à un très élégant moyen de vérifier cela...
Vous êtes en supposant que beaucoup sur ce shell va faire. Vous êtes en supposant qu'il ne s'ouvrent qu'une fois le fichier, et qu'il va le faire a l'instant où vous commencez la copie (et non pas, disons, une demi-seconde plus tard, après l'évaluation de la source de propriétés du répertoire)
Oui, c'est totalement hacky et n'est généralement pas une démarche de travail. On peut utiliser IDropTarget interface bien de compresser les fichiers de manière synchrone comme ceci.

OriginalL'auteur wqw

Vous sont corrects, CopyHere est asynchrone.
Quand je fais cela dans un script vbscript, je dors jusqu'à ce que le nombre de fichiers dans le zip, est supérieure ou égale au nombre de fichiers copiés.

Sub NewZip(pathToZipFile)
WScript.Echo "Newing up a zip file (" & pathToZipFile & ") "
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
Dim file
Set file = fso.CreateTextFile(pathToZipFile)
file.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)
file.Close
Set fso = Nothing
Set file = Nothing
WScript.Sleep 500
End Sub
Sub CreateZip(pathToZipFile, dirToZip)
WScript.Echo "Creating zip  (" & pathToZipFile & ") from (" & dirToZip & ")"
Dim fso
Set fso= Wscript.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(pathToZipFile) Then
WScript.Echo "That zip file already exists - deleting it."
fso.DeleteFile pathToZipFile
End If
If Not fso.FolderExists(dirToZip) Then
WScript.Echo "The directory to zip does not exist."
Exit Sub
End If
NewZip pathToZipFile
dim sa
set sa = CreateObject("Shell.Application")
Dim zip
Set zip = sa.NameSpace(pathToZipFile)
WScript.Echo "opening dir  (" & dirToZip & ")"
Dim d
Set d = sa.NameSpace(dirToZip)
' for diagnostic purposes only
For Each s In d.items
WScript.Echo  s
Next
' http://msdn.microsoft.com/en-us/library/bb787866(VS.85).aspx
' ===============================================================
' 4 = do not display a progress box
' 16 = Respond with "Yes to All" for any dialog box that is displayed.
' 128 = Perform the operation on files only if a wildcard file name (*.*) is specified. 
' 256 = Display a progress dialog box but do not show the file names.
' 2048 = Version 4.71. Do not copy the security attributes of the file.
' 4096 = Only operate in the local directory. Don't operate recursively into subdirectories.
WScript.Echo "copying files..."
zip.CopyHere d.items, 4
Do Until d.Items.Count <= zip.Items.Count
Wscript.Sleep(200)
Loop
End Sub

OriginalL'auteur Cheeso

0

Vous pouvez essayer d'accéder au fichier que vous venez de copier, par exemple avec un "il existe" vérifier:
```
For Each file In folderToZip.Items
For Each extension In fileExtensions
If LCase(oFSo.GetExtensionName(file)) = LCase(extension) Then
zipFile.CopyHere(file)
Dim i: i = 0
Dim target: target = oFSO.BuildPath(zipFile, oFSO.GetFileName(file))
While i < 100 And Not oFSO.FileExists(target) 
i = i + 1
WScript.Sleep 10
Wend
Exit For
End If
Next
Next
```
Je ne suis pas sûr si target est calculé correctement pour ce contexte d'utilisation, mais vous obtenez l'idée. Je suis un peu surpris de voir que cette erreur se produit en premier lieu... FileSystemObject devrait être strictement synchrone.

Si tout le reste échoue, faites ceci:
```
For Each file In folderToZip.Items
For Each extension In fileExtensions
If LCase(oFSo.GetExtensionName(file)) = LCase(extension) Then
CompressFailsafe zipFile, file
Exit For
End If
Next
Next
Sub CompressFailsafe(zipFile, file)
Dim i: i = 0
Const MAX = 100
On Error Resume Next
While i < MAX
zipFile.CopyHere(file)
If Err.Number = 0 Then 
i = MAX
ElseIf Err.Number = xxx ''# use the actual error number!
Err.Clear
WScript.Sleep 100
i = i + 1
Else 
''# react to unexpected error
End Of
Wend
On Error GoTo 0
End Sub
```
J'ai essayé le code. La boucle ne s'exécute jamais parce que FileExists = true. Je ne sais pas ce que c'est, mais c'est pas comme si le fichier n'existe pas, mais quelqu'un, le script ne peut pas accéder à écrire parce que le fichier précédent n'est pas terminé, c'est de la copie. Comme vous l'avez dit, j'aurais cru la copie serait strictement synchrone.
Peut-être que la comparaison des tailles de fichier est le chemin à parcourir?
J'ai aimé cette idée, alors j'ai essayé, mais le problèmes devient évident lorsque vous atteignez les fichiers d'environ 20 KO ou plus. Parce que je suis de placer les fichiers dans un fichier ZIP de leur taille rétrécit donc je ne peut pas estimer le fichier ZIP taille avec ce fichier dans ma boucle devient infinie.
Certes, je n'ai jamais vraiment utilisé le FileSystemObject avec des dossiers zip, je ne savais même pas que c'était possible. Je peux seulement supposer que la fonction de l'API qui copie un fichier dans un dossier zip fonctionne différemment de la normale "copier le fichier" fonction de l'API, et retourne un peu trop tôt. Peut-être il n'y a pas d'autre moyen que d'attendre assez longtemps, ou de continuer à essayer jusqu'à ce que l'erreur disparaisse (via On Error Resume Next). N'oubliez pas d'inclure un compteur pour éviter une boucle infinie. 😉
Le script fait continue de fonctionner après l'erreur est affiché mais le fichier destiné à être copié lorsque l'erreur est de montrer à ne pas être copiés à travers. Cela devient tellement ennuyeux 😛

OriginalL'auteur Tomalak
0

La solution que nous avons utilisée après beaucoup de débogage et d'assurance qualité sur les différentes fenêtres de saveurs, y compris lente et rapide des machines et des machines à sous forte charge CPU a l'extrait de code suivant.

Critique et amélioration de bienvenue.

Nous n'avons pas été en mesure de trouver un moyen de le faire sans une boucle, qui est, si vous voulais faire un peu de validation ou de post-compression de travail.

L'objectif était de construire quelque chose qui a couru de manière fiable sur autant de windows saveurs que possible. De préférence en mode natif en tant que possible.

Noter que ce code n'est PAS encore fiable à 100% mais sa semble être d'environ 99%. Aussi stable que nous avons pu obtenir avec le développement et d'assurance qualité de temps disponible.
Il est possible que l'augmentation de iSleepTime pourrait le rendre 100%

Points à noter:
- Inconditionnelle de sommeil semble être le plus fiable et compatible approche, nous avons trouvé
- La iSleepTime ne doit pas être réduit, il semble que le plus souvent, la boucle s'exécute, plus la probabilité d'une erreur, apparemment liés à des opérations internes de la zip/processus de copie
- iFiles est la source de nombre de fichiers
- La plus simpliste, la boucle était, au mieux, par exemple en sortie de oZippp.Items().Count dans la boucle causé inexplicable erreurs qui ressemblait à celui qu'ils pourraient être liés à l'accès aux fichiers/partage/verrouillage des violations. Nous n'avons pas de passer du temps de traçage pour le savoir.
- Il semble sur Windows 7 de toute façon, que les internes de la compression de l'utilisation du processus de fichier temp situé dans le mdc de l'compressé zip dossier, vous pouvez voir au cours de cette longue course zips par l'actualisation de la fenêtre de l'explorateur ou de l'inscription dir avec cmd
- Nous avons eu du succès avec ce code sur Windows 2000, XP, 2003, Vista, 7
- Vous auriez probablement souhaitez ajouter un délai d'attente dans la boucle, pour éviter les boucles infinies
```
'Copy the files to the compressed folder
oZippp.CopyHere oFolder.Items()
iSleeps = 0
iSleepTime = 5
On Error Resume Next
Do
iSleeps = iSleeps + 1
wScript.Sleep (iSleepTime * 1000)
Loop Until oZippp.Items().Count = iFiles
On Error GoTo 0
If iFiles <> oZippp.Items().Count Then
' some action to handle this error case
Else
' some action to handle success
End If
```
cette échoue si les éléments sont à l'intérieur des dossiers. Si le dossier source contient 20 articles, c'est l'espace de noms rapport 20, mais le zip de l'espace de noms sera toujours rapport à seulement 1 point-- le dossier.

OriginalL'auteur Kyle

Ici est un truc que j'ai utilisé dans VB; obtenir la longueur du fichier zip avant de le changer et d'attendre qu'elle change alors d'attendre une seconde ou deux. J'ai seulement besoin de deux fichiers spécifiques, mais vous pourriez faire une boucle.

Dim s As String
Dim F As Object 'Shell32.Folder
Dim h As Object 'Shell32.Folder
Dim g As Object 'Shell32.Folder
Dim Flen As Long, cntr As Long, TimerInt As Long
Err.Clear
s = "F:\.zip"
NewZipFolder s
Flen = FileLen(s)
Set F = CreateObject("Shell.Application").namespace(CVar(s))
TimerInt = FileLen("F:\MyBigFile.txt") / 100000000  'set the loop longer for bigger files
F.CopyHere "F:\DataSk\DemoData2010\Test.mdf"
Do
cntr = Timer + TimerInt
Do
DoEvents: DoEvents
Loop While cntr > Timer
Debug.Print Flen
Loop While Flen = FileLen(s)
cntr = Timer + (TimerInt / 2)
Do
DoEvents: DoEvents
Loop While cntr > Timer
Set F = Nothing
Set F = CreateObject("Shell.Application").namespace(CVar(s))
F.CopyHere "F:\MynextFile.txt"
MsgBox "Done!"

OriginalL'auteur user2135058

Vous devez vous connecter pour publier un commentaire.