国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

Private Const FO_MOVE = &H1
Private Const FO_COPY = &H2
Private Const FO_DELETE = &H3
Private Const FO_RENAME = &H4
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_SILENT = &H4
Private Const FOF_NOERRORUI = &H400
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private 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 String                                                ' only  used  if  FOF_SIMPLEPROGRESS
End Type

Private Sub Command1_Click()
    KillPath "d:\testdel\"
End Sub