0

アプリケーションに現在のパス/ディレクトリを見つけさせ、それを使用してzipファイルをインストールし、指定された場所に抽出しようとしています。(セルフォルダ)

Dim progDirectory As String

Public Sub Install()
    progDirectory = Environment.GetFolderPath(System.Environment.CurrentDirectory)
    My.Computer.FileSystem.WriteAllBytes(SelFolder & "\Resource.zip", progDirectory, False)
    Unzip(SelFolder & "\Resource.zip", SelFolder)
End Sub

エラーは、WriteAllBytes コマンドを使用したときの progDirectory の場所にあります。

どんな助けでも大歓迎です！:)

4

1 に答える 1

1

の使い方を誤解しているようWriteAllBytesです。

の 2 番目のパラメータFileSystem.WriteAllBytesは、書き込むデータです ( byte[] data)。代わりにファイルへのパスを示す文字列を渡しているため、このエラーが発生します。

于 2013-07-14T13:01:45.793 に答える