Podczas Gdy I rozumieć dlaczego ty chcieć program chcieć, ty być zadowalający z zadowalający przyjęcie nakazowy linia wykonywalny che móc przechować na the serwer dokąd the wsad kartoteka biegać od, i tam?
(Jeżeli W Ten Sposób Próba 7-Zip)
7Zip's nakazowy linia kartoteka móc od the Część ty dzwonić the wsad kartoteka od i jakaś real sieć zagadnienie ponieważ the kartoteka wykonywać na the lokalny klient strona.
Chociaż jeżeli ty woleć the kartoteka daleko, ale kartoteka być konieczny dla ten kartoteka ponieważ ono być bardzo mały.
Ty móc DL 7Zip tutaj:
http://www.7-zip.org/download.html(Jeśli nie
Wtedy Widzieć Wtedy)
I zakładać ten VB Pismo che podawać się za dokładnie robić ty patrzeć dla, jeżeli ono musieć robić bez jakaś jakaś przyjęcie kartoteka jakaś rodzaj, then I próbować using ten VB Pismo I dołączać.
NOTATKA: I napisać ten Pismo, I zakładać ono tutaj:
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 Pismo Kartoteka:
Funkcja fZip (sSourceFolder, sTargetZIPFile)
'Ten funkcja dodawać kartoteka the kartoteka w źródło falcówka ZAMEK BŁYSKAWICZNY kartoteka
"using Okno rodzimy skoroszytowy ZAMEK BŁYSKAWICZNY potencjał.
'Wracać integer (0) jeżeli (0) pójść (0).
Ciemnawy oShellApp, oFSO, iErr, sErrSource, sErrDescription
Ustalony oShellApp = CreateObject ("Shell.Application")
Ustalony oFSO = CreateObject ("Scripting.FileSystemObject")
'The źródło skoroszytowy potrzeba a \ na the Końcówka
Jeżeli Prawy (sSourceFolder, 1) <> "\" Wtedy sSourceFolder = sSourceFolder & "\"
Na Błąd Życiorys Następnie
'Jeżeli cel ZAMEK BŁYSKAWICZNY istnieć już, kasować ono
Jeżeli oFSO.FileExists (sTargetZIPFile) Wtedy oFSO.DeleteFile sTargetZIPFile, Prawdziwy
iErr = Err.Number
Na Błąd Rozpoczynający (0)
Jeżeli iErr <> (0) Wtedy
fZip = iErr
Wyjście Funkcja
Kończyć Jeżeli
Na Błąd Wznawiać Następnie
'Pisać the fileheader dla puste miejsce zipfile.
oFSO.OpenTextFile (sTargetZIPFile, 2, Prawdziwy). Pisać "PK" & Chr (5) & Chr (6) & Sznurek (18, Chr ((0)))
iErr = Err.Number
Na Błąd Rozpoczynający (0)
Jeżeli iErr <> (0) Wtedy
fZip = iErr
Wyjście Funkcja
Kończyć Jeżeli
Na Błąd Wznawiać Następnie
'Zaczynać kartoteka w the zamek błyskawiczny od the źródło falcówka.
oShellApp.NameSpace (sTargetZIPFile) .CopyHere oShellApp.NameSpace (sSourceFolder). Rzecz
iErr = Err.Number
Na Błąd Rozpoczynający (0)
Jeżeli iErr <> (0) Wtedy
fZip = iErr
Wyjście Funkcja
Kończyć Jeżeli
'Ponieważ the kopiowanie zdarzać się w oddzielny proces, the pismo właśnie kontynuować. Biegać a… PĘTLA zapobiegać the funkcja
'od wyłażenie do the kartoteka być kończyć.
Do oShellApp.NameSpace (sTargetZIPFile). Items.Count = oShellApp.NameSpace (sSourceFolder). Items.Count
WScript.Sleep 500
Pętla
fZip = (0)
Końcówka Funkcja
|
