用於打包文件的VBscript

在VB中我非常生疏，因爲我已經使用它兩年了。我很快就會回到它，因爲我現在有更多的理由來使用它。現在我正在嘗試創建一個VB腳本，它可以幫助我修改某些文件。我目前需要一種方法來獲取文件夾並以特定方式打包它們。我所試圖做的是這樣的：用於打包文件的VBscript

以一個文件夾的客戶端名稱
創建與所述客戶端名稱
添加特定的文件它首先，這將不會改變一個zip文件（ship.xml ）
將客戶端文件夾的內容添加到zip文件夾中。
重命名的.zip到的.tar格式

另外，如果你知道VB有什麼好的網站教程，請讓我知道。我正在使用Visual Basic 2010最終版。

來源

2012-08-27 Gʀɪᴍ

並不確切地知道你的意思CLIENTNAME什麼（計算機名？），但這應該讓你開始，你可以自己添加其他否則你會留下鏽蝕8>）

zip = "c:\myzip.zip" 
source = "G:\script\zip" 

set fso = createObject("Scripting.FileSystemObject") 
set shell = createObject("shell.application") 
'make empty zip 
set file = fso.CreateTextFile(zip, True) 
file.write("PK" & chr(5) & chr(6) & string(18,chr(0))) 
file.close 

set objFolder = shell.NameSpace(source) 
set oZip = shell.NameSpace(zip) 
if not oZip is nothing then 
    'add files to zip 
    oZip.CopyHere objFolder 
    wait_until_zipped(zip) 
    oZip.CopyHere "c:\ship.xml" 
    wait_until_zipped(zip) 
    'rename the zip to tar 
    fso.MoveFile zip, "c:\myzip.tar" 
end if 

'cleanup 
set oZip = Nothing 
set shell = Nothing 
set fso = Nothing 


function wait_until_zipped(zip) 
    set handle = fso.getFile(zip) 
    do 
    wscript.sleep 500 
    max = handle.size 
    loop while handle.size > max 
end function

來源

2012-08-27 20:11:09 peter

用於打包文件的VBscript

回答

相關問題