VB6 代码管家-删除文件2024年12月8日 22:21
Private Sub Command1_Click() '普通删除文件
Kill "C:\123.txt"
End Sub
Private Sub Command1_Click() '强制删除文件
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile "C:\1.exe"
End SubPrivate Sub Command1_Click() '普通删除文件
Kill "C:\123.txt"
End Sub
Private Sub Command1_Click() '强制删除文件
Set fs = CreateObject("Scripting.FileSystemObject")
fs.deletefile "C:\1.exe"
End Sub
全部回复（0）