vb中如何用代码实现删除命令
来源:百度知道 编辑:UC知道 时间:2024/06/14 19:40:10
比如说文本框中有字符"abcdef",我想删除ef,请问怎样用代码实现
1、kill 文件 '删除文件
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
将ef直接替换成空就可以了,试试这个哦:
Text1.Text = Replace(Te