sub DeleteFile(byval filePath as string) Dim fso As New FileSystemObject fso.DeleteFile "文件名", True end sub
用API '窗体申明部分 Private Const FO_DELETE = &H3 Private Const FOF_NOCONFIRMATION = &H10 Private Const FOF_MULTIDESTFILES = &H1 Private Const FOF_SILENT = &H4Private 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 End Type Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long Dim SHfileOp As SHFILEOPSTRUCT'具体实现部分 SHfileOp.wFunc = FO_DELETE SHfileOp.pFrom = C:\test.txt '指定你要删除的文件名或目录名 SHfileOp.fFlags = FOF_NOCONFIRMATION + FOF_MULTIDESTFILES + FOF_SILENT SHFileOperation SHfileOp
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Dim fso As New FileSystemObject
fso.DeleteFile "文件名", True
end sub
'窗体申明部分
Private Const FO_DELETE = &H3
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_MULTIDESTFILES = &H1
Private Const FOF_SILENT = &H4Private 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
End Type
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Dim SHfileOp As SHFILEOPSTRUCT'具体实现部分
SHfileOp.wFunc = FO_DELETE
SHfileOp.pFrom = C:\test.txt '指定你要删除的文件名或目录名
SHfileOp.fFlags = FOF_NOCONFIRMATION + FOF_MULTIDESTFILES + FOF_SILENT
SHFileOperation SHfileOp
是shell(del "abc abc.txt")
或者直接kill "abc abc.txt"
shell(move abc.txt "abc abc.txt")
我的机器是在上网是给人整的。
文件名称前后有空格 如:“ abc.txt ”
但是我删除删不掉。