Visual Basic, очиститель кода - PullRequest
Новая
       17

Visual Basic, очиститель кода

0 голосов
/ 14 декабря 2011

Я делаю очиститель каталога, который использует следующий код 

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

Ответы [ 2 ]

1 голос
/ 14 декабря 2011

Код папки-браузера работает нормально.У вас есть проблемы с реализацией этого? 

Kill(Me.FileReference.Text & "\*.txt")
0 голосов
/ 23 марта 2012

Попробуйте использовать окно сообщения для отображения выбранного пути. Посмотрите, дает ли вам то, что вы хотите. Если это не работает, попробуйте другое свойство, например, выбранный каталог или сортировку. У меня сейчас нет открытой VS, чтобы посмотреть на себя, но то, что у вас есть, должно работать, пока выбранный путь верен. У меня такое ощущение, что если вы получили выбранный путь, если это то, что вам нужно, и сначала присвойте его строковой переменной, он может работать. Может быть проблема форматирования с путем. Сначала попробуйте окно сообщения, чтобы убедиться, что путь правильный.

...