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