Fråga : Skapa VINANDET från grupperar sparar utan den nytto- tredje part

Någon har a långt som skapar en VINANDE, sparar från DOS grupperar sparar utan bruket av den nytto- tredje part? annat alternativ för

My endast är att underhålla en tom VINANDE sparar som kopieras/byts namn på, som jag behöver den, och flyttningen sparar in i skulle that.

I föredrar att inte måste att installera några tredje parthjälpmedel på de dussintals serverorna som jag skulle något liknande för att köra denna skulle from.

VBSCript är godtagbar så väl, men att föredra DOS gruppera sparar, som det är lättare för att andra ska redigera/maintain. " klar "

Svar : Skapa VINANDET från grupperar sparar utan den nytto- tredje part

Stunder I förstår, varför du inte önskar att installera ett program för att göra denna, skulle dig är oka med ett 3rd parti befaller fodrar utförbart som kan lagras på serveren, var gruppera sparar körs från och hänvisas till där?

(Om så försök 7-Zip)

 7Zip's befaller fodrar sparar kan köra från aktien dig appellen som gruppera sparar från, och att inte orsaka any verkligt knyta kontakt utfärdar, därför att spara skulle utförs på lokalbeställaresidan.

 Spara, därför att den är mycket liten, fast, om du föredrar att inte köra spara avlägset, men, det inte är nödvändigt för detta.

 Du kan DL 7Zip här: http://www.7-zip.org/download.html


(Om inte därefter att se nedanfört)

 I grundar denna VB skrivar som purports för att göra exakt vad du söker efter, om den måste göras utan något 3rd parti sparar av några sorterar, då jag skulle försök using denna VB skrivar mig har fäst.


 NOTERA: Jag skrev inte denna skrivar, I grundar det här: 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:

'VB skrivar för ATT DRA IGEN BLIXTLÅSET PÅ en spara:

 Fungera fZip (sSourceFolder som, är sTargetZIPFile)
 'Detta fungerar ska tillfogar alla av sparar i en källmapp till en VINANDE sparar
 ”using kapacitet för Windows” infödd mappVINANDE.
 'Går ett heltal 0 tillbaka, om allt gick ok.
  Dunkel oShellApp, oFSO, iErr, sErrSource, sErrDescription
  Fastställd oShellApp = CreateObject (”Shell.Application”)
  Fastställd oFSO = CreateObject (”Scripting.FileSystemObject”)
   'Källmappen behöver att ha a \ på avsluta
   Om höger (sSourceFolder, 1) <> ”\” därefter sSourceFolder = sSourceFolder & ”\”,
  På felmeritförteckning därefter 
    Ta den bort, 'om en uppsätta som målVINANDE finns redan,
    Om (sTargetZIPFile) oFSO.FileExists därefter oFSO.DeleteFile som är sTargetZIPFile, True 
   iErr = Err.Number
  På fel GoTo 0
   Om iErr <> 0 därefter   
    fZip = iErr
    Gå ut fungerar
   Avsluta om
  På felmeritförteckning därefter
   'Skriv fileheaderen för ett tomt zipfile.
   sTargetZIPFile oFSO.OpenTextFile (, 2, True). Skriv ”PK” & Chr (5) & Chr (6) & stränga (18, Chr (0))
   iErr = Err.Number
  På fel GoTo 0
   Om iErr <> 0 därefter   
    fZip = iErr
    Gå ut fungerar
   Avsluta om
  På felmeritförteckning därefter 
   'Att kopiera för start sparar in i vinandet från källmappen.
   oShellApp.NameSpace (sTargetZIPFile) .CopyHere oShellApp.NameSpace (sSourceFolder). Objekt
   iErr = Err.Number
  På fel GoTo 0
   Om iErr <> 0 därefter   
    fZip = iErr
    Gå ut fungerar
   Avsluta om
    'Därför att kopiera uppstår i ett separat processaa, skriva ska fortsätter precis.  Kör a… KRETSAR för att förhindra fungera
    'från att gå ut, tills spara är färdigt dra igen blixtlåset på.
    Gör till (sTargetZIPFile) oShellApp.NameSpace. Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
     WScript.Sleep 500
    Kretsa
  fZip = 0
 Avsluta fungerar
Andra lösningar  
 
programming4us programming4us