vb删除文件的问题

来源：百度知道 编辑：UC知道 时间：2024/05/07 02:07:19
单击按钮1浏览出一个文件或文件夹,地址写在text1上,单击按钮2删除它
只有代码

浏览出一个文件或文件夹,要用CommonDialog控件
CommonDialog.SHOWOPEN
TEXT1=CommonDialog.FILENAME

Private Sub Command2_Click()
Kill Text1
End Sub

'添加command1，command2，text1，commondialog控件
Private Sub Command1_Click()
CD1.ShowOpen
If CD1.FileName <> "" Then Text1.Text = CD1.FileName
End Sub

Private Sub Command2_Click()
If Text1.Text <> "" Then
Kill Text1.Text
MsgBox "删除成功"
End If
End Sub

Private Sub Form_Load()
'在属性栏设置text1为多行加滚动条
Text1.Text = ""
End Sub