怎样删除文件啊！

Question

可以用鼠标右键或是键盘上的：Delete。

Answer 1

用SHFileOperation,可以在删除时调出确认对话框，'声明部分
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPrivate Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40Private 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'程序部分
Dim SHFileOp As SHFILEOPSTRUCTSHFileOp.fFlags = FOF_ALLOWUNDO
SHFileOp.wFunc = FO_DELETE
SHFileOp.pFrom = "文件名"
Call SHFileOperation(SHFileOp)

Answer 2

去~
用 kill 文件名 就行了

Answer 3

是啊，用VB嘛，能简单就得简单，当然是用VB的内置函数Kill了。
不过在用这个函数之前最好先用Dir（文件名）看看这个文件是否存在，不然会出错的。

Answer 4

KILL
SHELL "DEL 文件名"

Answer 5

我认为davidstudio(张戴维)的方法不错.我推荐使用.

Answer 6

vba.SetAttr sfile,vbNormal 
vba.Kill sfile

Answer 7

kill filename 一般
如果复杂的api中的 deletefile函数也可以。
FSO也可以。
用SHFileOperation,可以在删除时调出确认对话框，'声明部分
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As LongPrivate Const FO_DELETE = &H3
Private Const FOF_ALLOWUNDO = &H40Private 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'程序部分
Dim SHFileOp As SHFILEOPSTRUCTSHFileOp.fFlags = FOF_ALLOWUNDO
SHFileOp.wFunc = FO_DELETE
SHFileOp.pFrom = "文件名"
Call SHFileOperation(SHFileOp)

Answer 8

Kill 语句
      从磁盘中删除文件。语法Kill pathname必要的 pathname 参数是用来指定一个文件名的字符串表达式。pathname 可以包含目录或文件夹、以及驱动器。说明在 Microsoft Windows 中，Kill 支持多字符 (*) 和单字符 (?) 的统配符来指定多重文件。\Kill 语句示例
本示例使用 Kill 语句将磁盘中的文件删除。' 假设 TESTFILE是一数据文件。
Kill "TestFile"   ' 删除。' 将当前目录下所有 *.TXT 文件全部删除。
Kill "*.TXT"