Imports System.Net

Public Class Form1
    Dim WithEvents downloader As New WebClient
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ProgressOverlay1.progressState = dotNetBase.Windows.Forms.ProgressBarState.Normal
        ProgressOverlay1.showOverlay()
        ProgressOverlay1.Worker.RunWorkerAsync()
    End Sub

    Private Sub BackgroundWorker1_DoWork(ByVal sender As System.Object, ByVal e As System.ComponentModel.DoWorkEventArgs) Handles BackgroundWorker1.DoWork
        downloader.DownloadFileAsync(New Uri("http://speedtest.netcologne.de/test_20mb.bin"), "Speedtest Netcologne.bin")
    End Sub

    Private Sub downloader_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader.DownloadProgressChanged
        ProgressOverlay1.percentDone = e.ProgressPercentage
        ProgressOverlay1.Title = "Ich arbeite..."
        ProgressOverlay1.Description = (e.BytesReceived / 1024).ToString & " KB von " & (e.TotalBytesToReceive / 1024).ToString & " KB fertig."
    End Sub

    Private Sub DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader.DownloadFileCompleted
        ProgressOverlay1.hideOverlay()
        downloader.Dispose()
    End Sub
End Class

Imports System.IO
Public Class Form1

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 	For Each i As Control In Me.Controls
 	For Each j As Control In i.Controls
 	For Each k As Control In j.Controls
 	For Each l As Control In k.Controls
 	If TypeOf (l) Is Button Then
 	l.Enabled = False
 	End If
 	Next
 	If TypeOf (k) Is Button Then
 	k.Enabled = False
 	End If
 	Next
 	If TypeOf (j) Is Button Then
 	j.Enabled = False
 	End If
 	Next
 	If TypeOf (i) Is Button Then
 	i.Enabled = False
 	End If
 	Next
 	Dim doith As New System.Threading.Thread(AddressOf DoIt)
 	doith.Start()
	End Sub
	Private Function DoIt()
 	MsgBox("Please wait")
 	Me.Cursor = Cursors.WaitCursor
 	Dim Progress As Integer = 0
 	Dim OneFileProcess As Double = 675 / 100

 	Dim DirInfo As New DirectoryInfo("D:\Eigene Dateien\GP4Map\Land_data_release_hgss")
 	Dim FileInfos() As FileInfo = DirInfo.GetFiles("5_*")
 	Dim FileNumber As Integer = 0
 	Dim RFileNumber As Integer = 1
 	' 	Progress = ((1 * 2) / (675 / 2)) * 25
 	ProgressBar1.Value = Progress
 	Label5.Text = Progress.ToString & "%"
 	If Directory.Exists("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched") = True Then
 	' Dim DeleteInfo As New DirectoryInfo("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched")
 	' Dim DeleteInfo2() As FileInfo = DirInfo.GetFiles("")
 	'For deleteint As Integer = 0 To DeleteInfo2.Length - 1
 	'Next
 	Dim DeleteList As List(Of String) = GetFileList("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched", True)
 	Dim DeleteArray() As String = DeleteList.ToArray
 	For ii As Integer = 0 To DeleteArray.Length - 1
 	File.Delete(DeleteArray(ii))
 	Next
 	Directory.Delete("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched")

 	wait(2000)
 	End If
 	Directory.CreateDirectory("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched")
 	wait(2000)

 	For i As Integer = 0 To FileInfos.Length - 1
 	If FileNumber < 10 Then
 	File.Copy("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\5_00" & FileNumber, "D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched\land_data_release_00" & FileNumber)
 	Else
 	If FileNumber = 10 Then
 	File.Copy("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\5_0" & FileNumber, "D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched\land_data_release_0" & FileNumber)
 	Else
 	If FileNumber > 10 And FileNumber < 100 Then
 	File.Copy("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\5_0" & FileNumber, "D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched\land_data_release_0" & FileNumber)
 	Else
 	If FileNumber = 100 Then
 	File.Copy("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\5_" & FileNumber, "D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched\land_data_release_" & FileNumber)
 	Else
 	If FileNumber > 100 Then
 	File.Copy("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\5_" & FileNumber, "D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched\land_data_release_" & FileNumber)
 	Else
 	If FileNumber > 999 Then
 	MsgBox("Files with a number over 999 are not supported!")
 	End If
 	End If
 	End If
 	End If
 	End If
 	End If
 	FileNumber += 1
 	RFileNumber += 1
 	Label4.Text = (Convert.ToString(RFileNumber - 1))
 	Label2.Text = (Convert.ToString(FileNumber - 1))
 	Progress = ((RFileNumber * 2) / (675 / 2)) * 25
 	ProgressBar1.Value = Progress
 	Label5.Text = Progress & "%"
 	Next
 	For Each ii As Control In Me.Controls
 	For Each j As Control In ii.Controls
 	For Each k As Control In j.Controls
 	For Each l As Control In k.Controls
 	If TypeOf (l) Is Button Then
 	l.Enabled = True
 	End If
 	Next
 	If TypeOf (k) Is Button Then
 	k.Enabled = True
 	End If
 	Next
 	If TypeOf (j) Is Button Then
 	j.Enabled = True
 	End If
 	Next
 	If TypeOf (ii) Is Button Then
 	ii.Enabled = True
 	End If
 	Next
 	Me.Cursor = Cursors.Default
	End Function
	Private Sub wait(ByVal interval As Integer)
 	Dim sw As New Stopwatch
 	sw.Start()
 	Do While sw.ElapsedMilliseconds < interval
 	' Allows UI to remain responsive
 	Application.DoEvents()
 	Loop
 	sw.Stop()
	End Sub
	Public Shared Function GetFileList(ByVal Root As String, Optional ByVal SubFolders As Boolean = True) As List(Of String)
 	Dim FileList As New List(Of String)
 	SeekFiles(Root, FileList, SubFolders)
 	Return FileList
	End Function
	Private Shared Sub SeekFiles(ByVal Root As String, ByRef FileArray As List(Of String), ByVal SubFolders As Boolean)
 	Try
 	Dim Files() As String = System.IO.Directory.GetFiles(Root)
 	Dim Folders() As String = System.IO.Directory.GetDirectories(Root)

 	For i As Integer = 0 To UBound(Files)
 	FileArray.Add(Files(i).ToString)
 	Next

 	If SubFolders = True Then
 	For i As Integer = 0 To UBound(Folders)
 	SeekFiles(Folders(i), FileArray, SubFolders)
 	Next
 	End If
 	Catch Ex As Exception
 	End Try
	End Sub

	Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 	CheckForIllegalCrossThreadCalls = False
	End Sub
	Private Function DoCheck()
 	Me.Cursor = Cursors.WaitCursor
 	Dim CheckList As List(Of String) = GetFileList("D:\Eigene Dateien\GP4Map\Land_data_release_hgss\dppatched", True)
 	Dim CheckArray() As String = CheckList.ToArray
 	For i As Integer = 0 To CheckArray.Length - 1
 	If CheckArray(i).Contains("land") = False Then
 	MsgBox(CheckArray(i) & " is false")
 	End If
 	Next
 	' 	MsgBox(CheckArray.Length & vbCrLf & CheckArray.Length - 1)
 	Me.Cursor = Cursors.Default()
	End Function
	Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 	MsgBox("Please wait")
 	Dim th As New Threading.Thread(AddressOf DoCheck)
 	th.Start()
	End Sub
End Class

Progress = ((RFileNumber * 2) / (675 / 2)) * 25 'RFileNumber ist die momentane DateiNummer und 675/2 wiel es immer 675 Dateien sind

        For Each item As ListViewItem In ListViewEx1.SelectedItems
            Try
                Dim reader As New StreamReader(item.SubItems(4).Text)
                Dim snippet As XDocument = <?xml version="1.0" encoding="utf-8"?>
                                           <CodeSnippets xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
                                               <CodeSnippet Format="1.0.0">
                                                   <Header>
                                                       <Title></Title>
                                                       <Description></Description>
                                                   </Header>
                                                   <Snippet>
                                                       <References>
                                                           <Reference>
                                                               <Assembly/>
                                                           </Reference>
                                                       </References>
                                                       <Code Language="VB">
                                                       </Code>
                                                   </Snippet>
                                               </CodeSnippet>
                                           </CodeSnippets>

                snippet.<CodeSnippets>.<CodeSnippet>.<Header>.<Title>.Value = item.SubItems(0).Text
                snippet.<CodeSnippets>.<CodeSnippet>.<Header>.<Description>.Value = item.SubItems(3).Text
                snippet.<CodeSnippets>.<CodeSnippet>.<Snippet>.<Code>.Value = "<![CDATA[" & reader.ReadToEnd & "]]>"
                snippet.Save("test2.snippet")
            Catch ex As Exception
                MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try
        Next

        For Each item As ListViewItem In ListViewEx1.SelectedItems
            Try
                Dim reader As New StreamReader(item.SubItems(4).Text)

                Dim w As New StreamWriter("test.snippet")
                w.Write("<?xml version=""1.0"" encoding=""utf-8""?><CodeSnippets xmlns=""http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet""><CodeSnippet Format=""1.0.0""><Header><Title>" & _
                            item.SubItems(0).Text & "</Title><Description>" & item.SubItems(3).Text & "</Description></Header><Snippet><References><Reference><Assembly /></Reference></References><Code Language=""VB""><![CDATA[" & _
                            reader.ReadToEnd & "]]></Code></Snippet></CodeSnippet></CodeSnippets>")
                w.Dispose()
                w.Close()
                           Catch ex As Exception
                MessageBox.Show(ex.Message, "Fehler", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            End Try
        Next

        Dim file As String = "C:\test.jcode"
        Dim upload As New WebClient()
        upload.Headers.Add("Content-Type", "multipart/form-data")
        upload.UploadFileAsync(New Uri("http://localhost/upload/index.php"), "POST", file)

    ListView1.ShowGroups = True
        Dim grp As New ListViewGroup("Test")
        Dim lvi As New ListViewItem("Eintrag", grp)
        lvi.SubItems.Add("Sub-Eintrag")
        lvi.SubItems.Add("Sub-Eintrag")
        lvi.SubItems.Add("Sub-Eintrag")
        ListView1.Items.Add(lvi)