的Visual Basic，代码清洁

我正在使用下面的代码但的Visual Basic，代码清洁

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公司\战斗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

来源

2011-12-14 user1086384

“不能使它工作”不会告诉我们任何事情。你尝试了什么，以及你观察到了什么意外的行为？ – 2011-12-14 00:31:59

该folderbrowser代码工作正常。你在执行这个问题时遇到问题吗？

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

来源

2011-12-14 00:54:45 UnhandledExcepSean

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

来源

2012-03-23 02:07:05 user1287319

的Visual Basic，代码清洁

回答

相关问题