0

プログラムを Startup フォルダーにコピーするイベントを起動しようとしているだけです。どこが間違っているのかわかりませんか？例外メッセージが表示され続けます。コピー中のファイルは使用されていません。

 Try
        Dim DesktopLink As String = Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
        Dim StartupFolder As String = Environment.GetFolderPath(Environment.SpecialFolder.Startup)

 Dim info As New FileInfo(StartupFolder)
            info.CopyTo(DesktopLink + "\doessomething.bat")

    Catch ex As Exception
        MessageBox.Show("Error: Can not copy to startup folder")
    End Try
4

1 に答える 1

1

現在、ファイルではなくフォルダFileInfoからを作成しています。

これはおそらく次のようになります。

Dim info As New FileInfo(Path.Combine(StartupFolder, "doessomething.bat"))
info.CopyTo(Path.Combine(DesktopLink, "doessomething.bat"))

または、さらに簡単に:

Dim source = Path.Combine(StartupFolder, "doessomething.bat")
Dim target = Path.Combine(DesktopLink, "doessomething.bat")
File.Copy(source, target)
于 2013-08-13T20:55:38.280 に答える