-1

ファイルの保存ダイアログのプロンプトを使用せずに、ファイルを保存する方法を知る必要があります。

現在、私のコードは次のとおりです。

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        ProgressBar1.Value = 0
        Using sfd As New SaveFileDialog
            With sfd
                If .ShowDialog = Windows.Forms.DialogResult.OK Then
                    .DefaultExt = "exe"
                    .Filter = "Saved.exe (*.exe)|*.exe"
                    '---Save File---
                    '---Code to pack the result with UPX packer---
        ProgressBar1.Value = 100
        MsgBox("Success.", MsgBoxStyle.Information)
    End Sub

そして、ファイルの保存ダイアログのプロンプトなしで、「Saved.exe」という名前のファイルをアプリケーションと同じフォルダーに保存する方法を知りたいです。ファイルは、プログラムと同じフォルダーに保存する必要があり、事前に構成された名前を付けて、UPX パッカーが何をパックするかを認識できるようにします。

うまくいけば、誰かが私を助けてくれます。

4

2 に答える 2

1

ディレクトリを取得するには、さまざまな方法があります。

My.Application.Info.DirectoryPath
Application.Current.BaseDirectory
IO.Path.GetDirectoryName(Application.ExecutablePath)
Windows.Forms.Application.StartupPath
IO.Path.GetDirectoryName(Reflection.Assembly.GetExecutingAssembly().CodeBase)

アプリケーション フォルダを取得したら、完全なファイル名パスを取得するファイル名を追加するだけです。

于 2013-06-18T08:56:19.533 に答える
0

ファイルの保存ダイアログでは、ユーザーはファイルを保存する場所を指定するだけです。

このダイアログなしでファイルを保存する場合は、ファイル名を自分で指定する必要があります。

次のコード スニペットのいずれかを使用して、ファイルを保存できます。

テキスト ファイルの場合:

My.Computer.FileSystem.WriteAllText("C:\SomeDir\YourFile.txt", "Text", True)

バイナリ ファイルの場合:

Dim fileContents() As Byte = {244, 123, 56, 34}
My.Computer.FileSystem.WriteAllBytes("C:\SomeDir\YourFile.bin", fileContents, True)

注: これらは、Visual Studio の標準スニペットからそのまま引用したものです。を押しCtrl+Kて、次のCtrl+X場所に移動しますFundamentals > FileSystem

于 2013-06-18T09:25:31.613 に答える