Terwijl ik begrijp waarom u geen programma wilt installeren om dit te doen, u met een uitvoerbare lijn zou o.k. zijn van het 3de partijbevel die kan op de server worden opgeslagen waar het partijdossier van wordt gelopen, en daar worden van verwijzingen voorzien?
(Als zo 7-pit probeer)
7Zip's de dossiers van de bevellijn kunnen van het Aandeel lopen u het partijdossier van en om het even welke echte netwerkkwesties niet roept veroorzaken omdat het dossier aan de lokale cliëntkant worden uitgevoerd.
Hoewel als u verkiest het dossier niet in werking te stellen ver, maar dat niet noodzakelijk voor dit dossier is omdat het zeer klein is.
U kunt DL 7Zip hier:
http://www.7-zip.org/download.html(Als
niet toen verder) zien
Ik vond dit Manuscript VB dat beweert precies te doen wat u zoekt, als het zonder enige 3de partijdossiers van enige soort moet worden gedaan, dan ik zou proberen gebruikend dit Manuscript VB dat ik heb vastgemaakt.
NOTA: Ik schreef dit Manuscript niet, vond ik het hier:
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:
|
'Manuscript VB om een Dossier TE SNELLEN:
Functie fZip (sSourceFolder, sTargetZIPFile)
'Deze functie zal alle dossiers in een bronomslag aan een dossier van het PIT toevoegen
van het de omslagPIT „gebruikend van Vensters“ het inheemse vermogen.
'Keert een geheel 0 terug als alles o.k. ging.
Schemerige oShellApp, oFSO, iErr, sErrSource, sErrDescription
Reeks oShellApp = CreateObject („Shell.Application“)
Reeks oFSO = CreateObject („Scripting.FileSystemObject“)
De 'bronomslag moet een \ op het Eind hebben
Als Juiste (sSourceFolder, 1) <> „\“ toen sSourceFolder = sSourceFolder & „\“
Op Fout hervat daarna
'Als een doelPIT reeds bestaat, schrap het
Als (sTargetZIPFile) oFSO.FileExists Dan sTargetZIPFile oFSO.DeleteFile, Waar
iErr = Err.Number
Op Fout GoTo 0
Als iErr <> 0 toen
fZip = iErr
De Functie van de uitgang
Eind als
Op Fout hervat daarna
'Schrijf fileheader voor een zipfile spatie.
sTargetZIPFile oFSO.OpenTextFile (, Ware 2,). Schrijf „PK“ & Chr (5) & Chr (6) & Koord (18, Chr (0))
iErr = Err.Number
Op Fout GoTo 0
Als iErr <> 0 toen
fZip = iErr
De Functie van de uitgang
Eind als
Op Fout hervat daarna
'Het kopiëren van het begin dossiers in het pit van de bronomslag.
oShellApp.NameSpace (sTargetZIPFile) .CopyHere oShellApp.NameSpace (sSourceFolder). Punten
iErr = Err.Number
Op Fout GoTo 0
Als iErr <> 0 toen
fZip = iErr
De Functie van de uitgang
Eind als
'Omdat het kopiëren in een afzonderlijk proces voorkomt, zal het manuscript enkel verdergaan. Stel a in werking… VAN EEN LUS VOORZIEN om de functie te verhinderen
'van het weggaan tot het dossier is het gebeëindigde snellen.
Doe tot (sTargetZIPFile) oShellApp.NameSpace. Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
WScript.Sleep 500
Lijn
fZip = 0
De Functie van het eind
|
