Visual Basic , 代码清理器答案

【问题标题】：Visual Basic , code CleanerVisual Basic , 代码清理器
【发布时间】：2011-12-14 00:09:18
【问题描述】：

我正在制作一个使用以下代码的目录清理器

Label2.Text = "Cleaned."
    If CheckBox1.Checked = True Then
        On Error Resume Next
        Kill("C:\Nexon\Combat Arms\*.txt")
    End If
    If CheckBox2.Checked = True Then
        On Error Resume Next
        Kill("C:\Nexon\Combat Arms\*.jpg")
    End If
    If CheckBox3.Checked = True Then
        On Error Resume Next
        Kill("C:\Nexon\Combat Arms\*.v3d")
    End If
    If CheckBox4.Checked = True Then
        On Error Resume Next
        Kill("C:\Nexon\Combat Arms\*.bin")
    End If
    If CheckBox5.Checked = True Then
        On Error Resume Next
        Kill("C:\Nexon\Combat Arms\*.dmp")
    End If
    If CheckBox6.Checked = True Then
        On Error Resume Next
        Kill("C:\Nexon\Combat Arms\*.dump")
    End If
    If CheckBox7.Checked = True Then
        On Error Resume Next
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\EndingBanner.exe", System.IO.FileAttributes.Normal)
        Kill("C:\Nexon\Combat Arms\EndingBanner.exe")
    End If
    If CheckBox8.Checked = True Then
        On Error Resume Next
        System.IO.File.SetAttributes("C:\Nexon\Combat Arms\CAV.exe", System.IO.FileAttributes.Normal)
        Kill("C:\Nexon\Combat Arms\CAV.exe")
    End If
    If CheckBox9.Checked = True Then
        On Error Resume Next
        If Dir("C:\Nexon\Combat Arms\MOVIES") <> "" Then
            Rename("C:\Nexon\Combat Arms\Game\MOVIES", "C:\Nexon\Combat Arms\Game\CLEANED")
        End If
    End If

但我不想在程序中说明目录，而是希望用户选择它，“C:\Nexon\Combat Arms\”使用 SelectDirectory；我有这个，但不能让它工作

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    Dim MyFolderBrowser As New System.Windows.Forms.FolderBrowserDialog
    Dim dlgResult As DialogResult = MyFolderBrowser.ShowDialog()

    Me.FileReference.Text = MyFolderBrowser.SelectedPath


End Sub

【问题讨论】：

“不能让它工作”并没有告诉我们任何事情。您尝试过什么，观察到什么意外行为？

标签： vb.net path folderbrowserdialog

【解决方案1】：

文件夹浏览器代码工作正常。您在执行此操作时遇到问题吗？

Kill(Me.FileReference.Text & "\*.txt")

【讨论】：

【解决方案2】：

尝试使用消息框显示所选路径。看看是否给了你你想要的。如果这不起作用，请尝试其他属性，例如选定目录或排序。我现在没有打开 VS 来查看自己，但只要选择的路径正确，你所拥有的应该可以工作。我有一种感觉，如果你选择了你想要的路径并首先将它分配给一个字符串变量，它可能会起作用。可能是路径的格式问题。先试试消息框，看看路径对不对。

【讨论】：