Tandis que je comprends pourquoi vous ne voulez pas installer un programme pour faire ceci, seriez-vous bien avec une ligne de commande de tiers exécutable qui peut être stockée sur le serveur d'où le fichier séquentiel est couru, et être mise en référence là ?
(Si ainsi essai 7-Zip)
la ligne de la commande 7Zip's dossiers peut fonctionner de la part que vous appelez le fichier séquentiel de et ne causer aucune vraie issue de réseau parce que le dossier serait exécuté du côté local de client.
Bien que si vous préférez ne pas courir le dossier à distance, mais cela ne soit pas nécessaire pour ce dossier parce qu'il est très petit.
Vous pouvez DL 7Zip ici :
http://www.7-zip.org/download.html(Sinon
voir alors ci-dessous)
J'ai trouvé ce manuscrit de VB qui les purports à faire exactement ce que vous recherchez, s'il doit n'être fait sans aucun dossier de tiers de n'importe quelle sorte, alors j'essayerais d'employer ce manuscrit de VB que j'ai attaché.
NOTE : Je n'ai pas écrit ce manuscrit, je l'ai trouvé ici :
http://www.visualbasicscript.com/m53086.aspx
1 :
2 :
3 :
4 :
5 :
6 :
7 :
8 :
9 :
10 :
11 :
12 :
13 :
14 :
15 :
16 :
17 :
18 :
19 :
20 :
21 :
22 :
23 :
24 :
25 :
26 :
27 :
28 :
29 :
30 :
31 :
32 :
33 :
34 :
35 :
36 :
37 :
38 :
39 :
40 :
41 :
42 :
43 :
44 :
45 :
|
'Manuscrit de VB POUR FERMER LA FERMETURE ÉCLAIR un dossier :
fZip de fonction (sSourceFolder, sTargetZIPFile)
'Cette fonction ajoutera tous les dossiers dans une chemise de source à un dossier de FERMETURE ÉCLAIR
possibilités indigènes de FERMETURE ÉCLAIR de chemise « using Windows ».
'Renvoie un nombre entier 0 si tout allait bien.
Faible oShellApp, oFSO, iErr, sErrSource, sErrDescription
Placer l'oShellApp = le CreateObject (« Shell.Application »)
Placer l'oFSO = le CreateObject (« Scripting.FileSystemObject »)
'La chemise de source doit avoir a \ sur l'extrémité
Si droit (sSourceFolder, 1) <> « \ » puis sSourceFolder = sSourceFolder et « \ »
Sur le résumé d'erreur après
'Si une FERMETURE ÉCLAIR de cible existe déjà, la supprimer
Si oFSO.FileExists (sTargetZIPFile) puis oFSO.DeleteFile sTargetZIPFile, rectifient
iErr = Err.Number
Sur l'erreur 0 GoTo
S'iErr <> 0 puis
fZip = iErr
Sortir la fonction
Finir si
Sur l'erreur reprendre après
'Écrire le fileheader pour un blanc zipfile.
oFSO.OpenTextFile (sTargetZIPFile, 2, rectifient). Écrire le « PK » et le Chr (5) et Chr (6) et corde (18, Chr (0))
iErr = Err.Number
Sur l'erreur 0 GoTo
S'iErr <> 0 puis
fZip = iErr
Sortir la fonction
Finir si
Sur l'erreur reprendre après
'Commencer à copier des dossiers dans la fermeture éclair à partir de la chemise de source.
oShellApp.NameSpace .CopyHere (sTargetZIPFile) oShellApp.NameSpace (sSourceFolder). Articles
iErr = Err.Number
Sur l'erreur 0 GoTo
S'iErr <> 0 puis
fZip = iErr
Sortir la fonction
Finir si
'Puisque la copie se produit dans un processus séparé, le manuscrit continuera juste. Courir a… BOUCLE empêchent la fonction
'de la sortie jusqu'au dossier est passer comme un éclair de finition.
Faire jusqu'à oShellApp.NameSpace (sTargetZIPFile). Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
WScript.Sleep 500
Boucle
fZip = 0
Fonction de fin
|
