技術標籤：android shell強制刪除資料夾

本篇文章把操作資料夾的程式碼整理了一個合集。給大家收藏備用，希望各取所需。

●MKDir方法

SubMKDir方法()
myfile="d:/例子"
f=Dir(myfile,vbDirectory)
Iff=""ThenMkDirmyfile
EndSub

Dir函式返回一個 String，用以表示一個檔名、目錄名或資料夾名稱。

第二引數用來指定檔案屬性，常用的幾種屬性如下：

vbNormal 0 標準檔案

vbReadOnly 1只讀檔案

vbHidden 2隱藏檔案

vbDirectory 16 資料夾

這裡我們要判斷某個資料夾是否存在，用的是vbDirectory屬性。

●FSO物件方法

SubFSO方法()
SetoFso=CreateObject("Scripting.FileSystemObject")
oFso.CreateFolder("C:/例子")
EndSub

●Shell方法

SubShell方法()
Shell"cmd.exe/cmdC:\例子"
EndSub

●FSO方法(最好用)

SubFSO方法()
PathG="C:\例子"
SetFSO=CreateObject("Scripting.FileSystemObject")
 
IfFSO.FolderExists(PathG)=TrueThen'//如果存在這個資料夾，則刪除資料夾
'以下兩個語句均可
FSO.GetFolder(PathG).Delete'//方法1
FSO.deleteFolder(PathG)'//方法2
Else
EndIf
EndSub

●Shell方法

SubShell方法()
Shell"cmd.exe/crd/s/qC:\例子\"
EndSub

●RmDir方法(不好用)

RmDir語句可以刪除一個資料夾，如果想要使用 RmDir 來刪除一個含有檔案的目錄或資料夾，則會發生錯誤。

如果資料夾裡有檔案無法直接刪除資料夾，需要先遍歷刪除資料夾以及子資料夾裡面的檔案。所以這種方法，不推薦使用。

RmDir  "C:\例子"

●FSO方法

Setfso=CreateObject("scripting.filesystemobject")
fso.MoveFolder"資料夾路徑","目標路徑"

這種方法容易出現沒有許可權的錯誤，所以參考網上大神的曲線救國的方法：先複製，再刪除=剪下。這樣的確不會報錯。

Setfso=CreateObject("scripting.filesystemobject")
fso.CopyFolder"資料夾路徑","目標路徑"
fso.DeleteFolder"資料夾路徑"

親測通過的示例程式碼：

Sub移動資料夾2()
Setfso=CreateObject("Scripting.FileSystemObject")
myFolder="d:\txt"'要移動的資料夾
myNewFilePath="e:\例子"'要移動的位置
Iffso.FolderExists(myFolder)Then
fso.copyfoldermyFolder,myNewFilePath
MsgBox"已經將資料夾"&myFolder&"移到了資料夾"&myNewFilePath
Else
MsgBox"要移動的資料夾不存在"
EndIf
fso.deletefoldermyFolder
EndSub

●Name方法(同樣會有許可權錯誤)

SubName方法()
Name"D:\例子"As"E:\例子"
EndSub

●FSO方法

SubCopyFile_fso()
Setfso=CreateObject("Scripting.FileSystemObject")
fso.copyfolderThisWorkbook.Path&"\測試新建資料夾",ThisWorkbook.Path&"\2016年報表\"
EndSub

Sub獲取子資料夾路徑fso方法()
Setfso=CreateObject("scripting.filesystemobject")
WithApplication.FileDialog(msoFileDialogFolderPicker)
If.ShowThenPathSht=.SelectedItems(1)ElseExitSub
EndWith
Setf_num=fso.GetFolder(PathSht)
ForEachflInf_num.SubFolders
MsgBoxfl.Path
Next
EndSub

Sub本機桌面路徑()
MsgBoxEnviron("userprofile")&"\Desktop\"
EndSub

Sub資料夾屬性()
Setfso=CreateObject("scripting.filesystemobject")
Setf=fso.GetFolder("C:\例子")
strr="檔案型別為:"&f.Attributes
strr=strr&"資料夾名稱為:"&f.Name&vbCrLf
strr=strr&"資料夾短名稱為:"&f.ShortName&vbCrLf
strr=strr&"資料夾型別為:"&f.Type&vbCrLf
strr=strr&"資料夾所在驅動器名為:"&f.Drive&vbCrLf
strr=strr&"資料夾是否為短名稱:"&f.IsRootFolder&vbCrLf
strr=strr&"上層資料夾為:"&f.ParentFolder&vbCrLf
strr=strr&"資料夾路徑為:"&f.Path&vbCrLf
strr=strr&"資料夾短名稱路徑為:"&f.ShortPath&vbCrLf
strr=strr&"資料夾大小為:"&Int(f.Size/1024^2)&"M"&vbCrLf
strr=strr&"資料夾建立時間為:"&f.DateCreated&vbCrLf
strr=strr&"資料夾最後一次修改時間為:"&f.DateLastModified&vbCrLf
strr=strr&"資料夾最後一次訪問時間為:"&f.DateLastAccessed&vbCrLf
MsgBoxstrr
EndSub

學而時習之不亦說乎，下面的歷史文章可以再翻看一下。