VB.net无法找到目录

Question

这是完整的代码。 http://pastebin.com/cx9Tk0n3

我遇到的问题是，在下载完mod后，所有内容都完美无缺，RAR文件位于文档文件夹中，而内容内容（@Mod）位于Documents文件夹下的LauncherArma下。

点击按钮安装mod，从第184行开始，我发现了这个错误：

Private Sub FlatButton6_Click(sender As Object, e As EventArgs) Handles FlatButton6.Click
   If My.Computer.FileSystem.DirectoryExists(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma") Then
        My.Computer.FileSystem.DeleteDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma", FileIO.DeleteDirectoryOption.DeleteAllContents)
    End If


    If My.Computer.FileSystem.FileExists(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\modsname.txt") Then
        My.Computer.FileSystem.DeleteFile(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\modsname.txt")
    End If

    My.Computer.FileSystem.CreateDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma")
    UnRar(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\Addon.rar", Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma")
    Dim ligne As String
    My.Computer.Network.DownloadFile("FTP ADDRESS. Hidden for security. Don't worry, the download files works!/modsname.txt", Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\modsname.txt")
    Dim sr As New StreamReader(Environment.GetFolderPath(Environment.SpecialFolder.ApplicationData) & "\LauncherArma\modsname.txt")
    While sr.Peek <> -1
        ligne = sr.ReadLine()
        My.Computer.FileSystem.CopyDirectory(Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) & "\LauncherArma\" & ligne, directory & "\" & ligne, True)
    End While
    PictureBox1.Visible = True
    FlatButton6.Visible = False
    FlatProgressBar1.Visible = False
    FlatLabel1.Visible = False
    FlatLabel2.Visible = False
    FlatLabel3.Visible = False
End Sub

我不知道如何解决这个问题。

等待你的回复！

此致