rmdir 文件夹 '删除文件夹
如果想要使用 RmDir 来删渣橘配除一个含有文件的目录或文件夹,则会发生错误。在试图删除目录或文件夹之前,先使用 Kill 语句来删除所有文件。
2、或者用对象的方法:
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile 删除文件
fs.deletefolder 删除文件夹
3、用API也可以办到
Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
deletefile 文件名 '强制删除一如指个文件
例子:
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
Private Sub Form_Load()
DeleteFile "c:\test.txt"
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile "c:\test.txt"
fs.deletefolder "伍誉c:\test"
Kill "c:\test.txt"
RmDir "c:\test"
End Sub
用rmdir来删除,但使用 RmDir 来删除一个含有文件的改举目录或文件夹,则会发生错误。所以在核搜碧试图删除目录或文件夹之前,先使用 Kill 语句来删除所有文件.Kill "*.*" 删除当前目录下所有文件
' 假设 MYDIR 为一空的目录或文件夹。
RmDir "MYDIR"'漏樱 将 MYDIR 删除。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)