Dummy Datei erstellen

1
2
3
4
5
6
7
8
9
10
11

''' <summary>
''' Diese Funktion erstellt eine leere Dummy Datei.
''' Dabei ist es egal wie groß die Datei sein soll, es geht immer gleich schnell.
''' </summary>
''' <param name="FileName">Der Name der Dummy Datei</param>
''' <param name="FileSize">Die Größe der Dummy Datei</param>
Public Sub MakeDummyFile(ByVal FileName As String, ByVal FileSize As Long)
    Dim FS As New FileStream(FileName, FileMode.Create)
    FS.SetLength(FileSize)
    FS.Close()
End Sub