Public Sub ProofFile_Folder(ByVal File As String, ByVal Folder As String)
 
        'Prüfen ob der Pfad vorhanden ist 
        'Wenn NEIN erstelle diesen
        If Not IO.Directory.Exists(Folder) Then
            ' Nein! Jetzt erstellen...
            Try
                IO.Directory.CreateDirectory(Folder)
                ' Ordner wurde korrekt erstellt!
            Catch ex As Exception
                'Eine Meldung ausgeben wenn es nicht funktioniert
            End Try
        End If
 
 
        'Prüfen ob die Log.txt Datei vorhanden ist
 
        If IO.File.Exists(File) = False Then
            Try
                IO.File.Create(File)
                Exit Sub
            Catch ex As Exception
                'Eine Meldung ausgeben wenn es nicht funktioniert
            End Try
 
 
        End If
 
 
    End Sub

Gruss
VIVAX

}
}
}

1:0 für Visual Basic.NET