[Fantastico]

قم بتعديل هذا الكود ليعمل على VB6.0

PHP كود :

Const CommonText As String = "Deleting file : "

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim folder As String = TextBox1.Text
        Dim items() As String = System.IO.Directory.GetFileSystemEntries(folder)
        ProgressBar1.Maximum = UBound(items) + 1
        ProgressBar1.Value = 0
        For Each item As String In items
            Label1.Text = CommonText & item
            Dim file As New System.IO.FileInfo(item)
            If item.Contains(".") Then
                file.Delete()
            Else
                System.IO.Directory.Delete(file.FullName, True)
            End If

            ProgressBar1.Value += 1
        Next
End Sub