UC知道请帮我写一个VB程序
来源：百度知道 编辑：UC知道 时间：2024/06/16 08:31:41
点击一个按钮，它就弹出一个输入框，在输入框中输入路径，它就删除路径内的所有文件
Private Sub Command1_Click()
Dim strFileName as string
strFileName = InputBox("请输入一个路径：")
strFileName = IIf(Right(strFileName, 1) = "\", strFileName & "*.*", strFileName & "\*.*")
If Dir(strFileName) = "" Then
MsgBox "请输入正确路径"
Else
Kill strFileName
End If
End Sub
这个程序不能删下属的子文件夹
Private Sub Command1_Click()
On Error GoTo ErrHandle '错误处理
Dim a$
a = InputBox("请输入一个路径：")
If Right(a, 1) = "\" Then
Kill IIf(Right(a, 1) = "\", a & "*.*", a & "\*.*")
Exit Sub
ErrHandle: '错误处理
msgbox "请输入正确路径"
End Sub
Private Sub Command1_Click()
Dim FileName As String
Dim ROFileName As String
FileName = InputBox("请输入一个路径：")
If Dir(FileName & "\*.*") <> "" Then
Do '如果