私有子目錄1_Change()
文件1。Path = Dir1。小路
Label1。Caption = Dir1。小路
末端接頭
私有子驅動器1_Change()
出錯時轉到err1
Dir1。Path = Drive1。驅動器
出口接頭
err1:
Msgboxerr.description，vbinformation+vbokonly，" prompt "
末端接頭
私有子命令1_Click()
Dim i為整數，j為整數
Dim ifieldcount為整數，irecordcount為整數
將wdapp調成Word。應用
將wddoc調成Word。文件
像單詞壹樣模糊。桌子
如果選項2。那麽值=真
ReDim a(1到文件1。列表計數)
對於i = 1到File1。列表計數
b = File1。列表(壹)
a(i) = b
然後
如果…就會結束
If選項1。那麽值=真
ReDim a(1到Dir1。列表計數)
對於i = 1到Dir1。列表計數
b = Dir1。列表(壹)
a(i) = b
然後
如果…就會結束
末端接頭
把這個程序復制過去就行了。創建的控件有兩個選項供您選擇是提取文件夾還是文件路徑。選擇選項1表示解壓文件夾，選項2表示解壓文件，然後創建Drive 1 Dir 1 File 1。只需添加壹個命令按鈕。如有任何問題，請聯系我！！！！！這只是文件路徑。如果妳想要的話，我來寫代碼給妳解壓文件夾和文件名！！！！