亚洲乱色熟女一区二区三区丝袜,天堂√中文最新版在线,亚洲精品乱码久久久久久蜜桃图片,香蕉久久久久久av成人,欧美丰满熟妇bbb久久久

KILL 刪除文件
RmDir path 刪除目錄或文件夾

如果沒有指定驅(qū)動(dòng)器，則RmDir會(huì)在當(dāng)前驅(qū)動(dòng)器上刪除目錄或文件夾。如果想要使用RmDir刪除一個(gè)含有文件的目錄或文件夾，則會(huì)發(fā)生錯(cuò)誤。只有用Kill語(yǔ)句刪除所有文件后，才能用來RmDir刪除目錄或文件夾

問題補(bǔ)充：照你的意思 看來一句話完成你想要的命令是不行的。必須先列舉里面的的文件夾 然后刪除里面的文件在刪除文件才可以，不過這樣比較麻煩，我剛從別處摘抄了一段代碼 是強(qiáng)行刪除帶有文件的目錄，你自己在套用里面的函數(shù)就可以了，希望對(duì)你有幫助。。

'VB強(qiáng)行刪除目錄或（VB強(qiáng)行刪除文件）模塊源碼

Public Enum FO_Operation
    FO_MOVE = 1
    FO_COPY = 2
    FO_DELETE = 3
    FO_RENAME = 4
End Enum

Public Enum FOFlags
    FOF_MULTIDESTFILES = &H1 'Destination specifies multiple files
    FOF_SILENT = &H4 'Don't display progress dialog
    FOF_RENAMEONCOLLISION = &H8 'Rename if destination already exists
    FOF_NOCONFIRMATION = &H10 'Don't prompt user
    FOF_WANTMAPPINGHANDLE = &H20 'Fill in hNameMappings member
    FOF_ALLOWUNDO = &H40 'Store undo information if possible
    FOF_FILESONLY = &H80 'On *.*, don't copy directories
    FOF_SIMPLEPROGRESS = &H100 'Don't show name of each file
    FOF_NOCONFIRMMKDIR = &H200 'Don't confirm making any needed dirs
End Enum

Public Type SHFILEOPSTRUCT
    hwnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer
    fAnyOperationsAborted As Long
    hNameMappings As Long
    lpszProgressTitle As Long ' only used if FOF_SIMPLEPROGRESS
End Type

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private op As SHFILEOPSTRUCT

Public Sub DeleteFolder(sDeleteFolder As String, Optional Interface As Boolean = False)
   
    SetAttr sDeleteFolder, vbNormal
    With op
        .wFunc = FO_DELETE
        .pFrom = sDeleteFolder
        .fFlags = IIf(Interface = False, FOF_NOCONFIRMATION, FOF_NOCONFIRMATION And FOF_SILENT)
    End With
    SHFileOperation op
   
End Sub

'假如你要?jiǎng)h除的目錄是："c:\temp"，無(wú)論它有多少子目錄，有多少文件，一樣被刪除，前提是目錄已經(jīng)存在。