DIR 可以
還可以用FSO 對象,來完成!
Dir 函數
返回一個 String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁碟卷標相匹配。
語法
Dir[(pathname[, attributes])]
Dir 函數的語法具有以下幾個部分：
部分 描述
pathname 可選參數。用來指定文件名的字元串表達式，可能包含目錄或文件夾、以及驅動器。如果沒有找到 pathname，則會返回零長度字元串 ("")。
attributes 可選參數。常數或數值表達式，其總和用來指定文件屬性。如果省略，則會返回匹配 pathname 但不包含屬性的文件。
設置值
attributes 參數的設置可為：
常數 值 描述
vbNormal 0 (預設) 指定沒有屬性的文件。
vbReadOnly 1 指定無屬性的只讀文件
vbHidden 2 指定無屬性的隱藏文件
VbSystem 4 指定無屬性的系統文件
vbVolume 8 指定卷標文件；如果指定了其它屬性，則忽略vbVolume
vbDirectory 16 指定無屬性文件及其路徑和文件夾。
注意 這些常數是由 VBA 所指定的，在程序代碼中的任何位置，可以使用這些常數來替換真正的數值。
2. VB如何使用7z的API來實現壓縮、解壓縮
直接用命令行的方式來調用吧！
可以用shell函數加上指定的參數
壓縮文件回：
"C:\Program Files\7-Zip\7z.exe" a c:\壓縮後的7z文件名答.7z c:\需要壓縮的wen1.txt c:\需要壓縮的文件2.txt ... 需要壓縮的其他文件路徑
解壓縮文件：
首先用chdir函數設置當前目錄為解壓縮以後的文件存放的目錄，
然後用shell函數調用"C:\Program Files\7-Zip\7z.exe" e 需要解壓縮的7z文件路徑
進行解壓縮！
3. 如何用VB編寫壓縮與解壓縮的程序
自己編寫一個好的壓縮與解壓縮程序，演算法是相當復雜的，如果只是想把多個文件打個包並不難，把多個文件寫入一個二進制文件即可，當然這裡面也要有文件名如何保存，每個文件到哪結束等的問題。
最簡單的方法是調用第三方軟比如zip等，建議調用ARJ.EXE或LHARC.EXE因為它們只一個文件並且體積都很小壓縮比也不錯。
4. vb怎麼壓縮解壓文件
安裝 WinRAR
Private Sub Command1_Click()
'壓縮文件c:\01.txt
Shell "C:\Program Files\WinRAR\WinRAR.exe a c:\02.rar c:\01.txt"
End Sub
Private Sub Command2_Click()
'解壓文件到d：\
Shell "C:\Program Files\WinRAR\WinRAR.exe e c:\02.rar d:\"
End Sub
5. VB 怎麼操縱 War壓縮
RAR軟體附帶有一個TXT文件（
右擊
RAR
快捷方式
，屬性，查找目標），裡面是關於Rar.
exe文件
的命令行模式的參數說明，可以用VB的
Shell函數
，通過命令行來完成你的要求。
6. vb 怎麼壓縮,解壓文件,就是rar或者zip,給我源碼,還有調用哪個dll
winrar是最好的~而且代碼簡單~你可以把它的解壓（unRar.exe）和壓縮（Rar.exe）2個文件 放到資源里 大小也不過700kb而已，如果用戶沒有文件 你就釋放這2個文件到temp或者程序同目錄下。然後再解壓你想要的rar,zip等 畢竟winrar支持的格式比較多。又穩定
7. 用VB怎樣壓縮一個文件
Option Explicit
Dim mystr As String
Dim Source As String ' 源文件
Dim Target As String ' 目標文件
Dim retval
Private Sub Command1_Click() ，=========壓縮文件
mystr = "C:\Program Files\WinRAR\winrar.exe" 'winrar.exe文件路徑
Source = App.Path & "\111.jpg"
Target = App.Path & "\111.rar" '壓縮格式可以是rar,也可以是cab....
mystr = mystr & " a " & Target & " " & Source '命令字元串
retval = Shell(mystr, vbHide)
End Sub
Private Sub Command2_Click() 『===========解壓文件
mystr = "C:\Program Files\WinRAR\winrar.exe"
Source = App.Path & "\111.rar"
Target = App.Path & "\new" '存放壓縮文件的位置
mystr = mystr & "X" & Source & " " & Target
Text1.Text = mystr
retval = Shell(mystr, vbHide)
End Sub
Private Sub Command3_Click()
End
End Sub
8. VB中 如何用winrar 壓縮一個文件夾
如果是本地文件，可以這樣：一些資料庫文件(如Access文件)在遠程傳輸過程中可能由於文件比較大而影響傳遞效果。如果進行壓縮以後再傳遞，會減少傳遞時間，避免意外的發生，同時也保證了傳遞效果。我們在壓縮文件時，最常用的壓縮工具為WinRar和Winzip，筆者在VB編程過程中利用WinRar工具來壓縮資料庫文件，並完成遠程傳輸，十分方便，在此向大家介紹一下。用WinZip的方法類似。
一、Shell函數
Shell函數是VB中的內部函數，它負責執行一個可執行文件，返回一個Variant(Double)，如果成功的話，代表這個程序的進程ID，若不成功，則會返回0。
Shell的語法：Shell(PathName[，WindowStyle])。
PathName 為必需參數。類型為String，它指出了要執行的程序名，以及任何需要的參數或命令行變數，也可以包括路徑名。
WindowStyle為可選參數。Integer類型，指定在程序運行時窗口的樣式。WindowStyle有以下這些值。
常量值描述
VbHide 0 窗口被隱藏，且焦點會移到隱式窗口。
VbNormalFocus 1 窗口具有焦點，且會還原到它原來的大小和位置。
VbMinimizedFocus 2 窗口會以一個具有焦點的圖標來顯示（預設值）。
VbMaximizedFocus 3 窗口是一個具有焦點的最大化窗口。
VbNormalNoFocus 4 窗口會被還原到最近使用的大小和位置，而當前活動的窗口仍然保持活動。
VbMinimizedNoFocus 6 窗口會以一個圖標來顯示，而當前活動的窗口仍然保持活動。
二、關於WinRar的用法
主要介紹以下如何在WinRar中用命令行來壓縮和解壓縮文件。
壓縮：WINRAR A [-switches] [Files] [@File lists]
例如你想把try.mdb壓縮到C盤下，可以WINRAR A C:\try.rar C:\try.mdb
解壓縮：如果帶目錄解壓縮
WINRAR X [-switches] [Files] [@File lists] [destionation folder\]
如果在當前目錄解壓縮，即解壓縮時不寫目錄名
WINRAR E [-switches] [Files] [@File lists] [destionation folder\]
例如你想把try.rar解壓縮到C盤下，可以WINRAR X C:\try.rar C:\try.mdb
三、一個例子
在VB中新建一個工程，在Form1中添加兩個按鈕Command1、Command2和Command3，把他們的Caption屬性分別設為"壓縮文件"、"解壓縮文件"和"傳遞文件"。按Command1時把文件try.mdb壓縮成try.rar。
Private Sub Command1_Click()
Dim Rarexe As String 'WINRAR執行文件的位置
Dim Source As String ' 壓縮前的原始文件
Dim Target As String ' 壓縮後的目標文件
Dim FileString as String 'Shell指令中的字元串
Dim Result As Long
Rarexe="C:\program files\winrar\winrar"
Source="C:\try.mdb"
Target="C:\try.rar"
FileString = rarexe & " a " & Target & " " & Source
Result = Shell(FileString, vbHide)
End Sub
解壓的過程類似，按Command2可以把try.rar解壓生成 try.mdb。在執行了上面的壓縮過程後，可以刪除文件try.mdb，來解壓縮重新生成try.mdb。
Private Sub Command2_Click()
Dim Rarexe As String 'WINRAR執行文件的位置
Dim Source As String ' 解壓縮前的原始文件
Dim Target As String ' 解壓縮後的目標文件
Dim FileString as String 'Shell指令中的字元串
Dim Result As Long
Rarexe="C:\program files\winrar\winrar"
Source="C:\try.rar"
Target="C:\try.mdb"
FileString = rarexe & " X " & Source & " " & Target
Result = Shell(FileString, vbHide)
End Sub
文件從一台計算機傳輸到另一台計算機前，應知道另一台計算機的名字，然後用FileCopy語句就可以了。假設要把壓縮後try.rar傳遞到計算機名為"other"的共享目錄"want"下。
Private Sub Command3_Click()
Dim SourceFile, DestinationFile
SourceFile ="C:\try.rar " ' 指定源文件名。
DestinationFile = "\\other\want\try.rar" ' 指定目的文件名。
FileCopy SourceFile, DestinationFile ' 將源文件的內容復制到目的文件中。
End Sub
怎麼樣，十分簡單吧？
9. vb.net進行文件壓縮
如果機器安裝有winRar軟體，就可以通過shell來借用他的功能達到壓縮文件的效果；
參考代碼如下：
Dim DeliveryF As String = Server.MapPath("..\Temp\DeliveryFactors.xls") '原始文件 (壓縮前)
Dim TruckInfo As String = Server.MapPath("..\Temp\TruckInformation.xls")
Dim QDetail As String = Server.MapPath("..\Temp\QuotationDetail.xls")
'用shell命令調用winrar.exe創建壓縮文件()
Dim winRarexe As String = "C:\Program Files\WinRAR\Rar" 'winzip 執行文件的位置
Dim wtarget As String = "C:\temp\QuotationVAComparsion.zip" '目地文件 (壓縮後)
Dim command As String = winRarexe & " a " & wtarget & " " & DeliveryF & " " & TruckInfo & " " & QDetail
'這個命令你可以查看winrar的命令集
Dim retval As Double 'Shell 指令傳回值
retval = Shell(command, AppWinStyle.MinimizedFocus)
10. 在vb里怎麼實現壓縮文件與解壓文件的操作
利用winrar
解壓文件：
Call Shell( "C:\Program
Files\WinRAR\rar.exe e -o+
E:\Ab.rar E:\ ",
vbHide)
壓縮文件：
Call Shell( "C:\Program
Files\WinRAR\rar.exe a -o+
E:\aa.rar E:\Ab.txt ",
vbHide)