Public Class Form1
 
Public Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs)
Handles MyBase.Load
'Bei Programmstart werden vorhandene Disc-Laufwerke abgefragt.
For Each Dr As DriveInfo In DriveInfo.GetDrives()
If Dr.DriveType = DriveType.CDRom Then
'Driveinfo-Objekt wird in das Kombinationsfeld übergeben
Me.SelectDrive.Items.Add(Dr.Name)
Me.SelectDrive.Show()
Me.SelectDrive.SelectedItem = "D:\"
End If
Next
'Überprüfung ob der Projektordner bereits erstellt wurde
Dim Desktop As String
Desktop = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim SpeicherOrt As New DirectoryInfo(Desktop & "\DJDaten")
If SpeicherOrt.Exists = False Then
SpeicherOrt.Create()
Try
Dim Index As String
Index = SpeicherOrt.ToString
Dim IndexDatei As New FileInfo(Index & "\Index.dat")
'Wenn der SpeicherOrt neu erstellt wurde, muss die Indexdatei neu erstellt 
' werden
If IndexDatei.Exists = False Then
'Me.ErsterIndex()
IndexDatei.Create()
'Die neu erstellteIndexdatei erhält den ersten Index
Dim ersterIndex As Integer = 1
Dim Sw As New StreamWriter(Index & "\Index.dat")
Sw.Write(ersterIndex)
Sw.Close()
End If
Catch ex As Exception
MessageBox.Show("Fehler beim Verzeichnis: " & ex.Message)
End Try
End If
'XML-Dateien anzeigen
Me.listScans()
End Sub