Frage zu Visual Basic und Dateien

Dim descDir As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim roamingDir As String = Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData)
        Dim sourcePath As String = descDir + "datei.txt"
        Dim destPath As String = roamingDir + "datei.txt"
        If FileIO.FileSystem.FileExists(destPath) Then
            FileIO.FileSystem.DeleteFile(destPath)
        End If
        FileIO.FileSystem.MoveFile(sourcePath, destPath)