Allora io mi sto creando un programma per lavorare in esadecimale su un file.

Però io volevo far si che se apro il file ciao.dkz prima di lavorare in HEX lui deve leggere tutti i byte di un file e creare un file che si chiamerà con lo stesso nome del file (ciao.dkz) ma con estensione .bak quindi in questo caso ciao.dkz.bak e la salvi nella stessa cartella dove c'e' il file.

Per lavorare in esadecimale ho questo codice:
codice:
Dim tint As Integer
Dim str As New FileStream(OpenFileDialog1.FileName, FileMode.Open, FileAccess.ReadWrite)
tint = str.ReadByte()
If tint = -1 Then MsgBox("Il file è troppo picolo") : Exit Sub
str.Seek(&HAB0, SeekOrigin.Begin)
str.WriteByte(CByte("&H" & ComboBox1.Text))
Ma io voglio che prima di lavorare in HEX faccia un backup in questo modo
codice:
My.Computer.FileSystem.WriteAllBytes(SaveFileDialog1.FileName, My.Computer.FileSystem.ReadAllBytes(OpenFileDialog1.FileName), True)
Ma al posto di SaveFileDialog1.FileName ci deve essere un codice che dica di creare un file con gli stessi byte dell'OpenFIleDialog1.FileName e con estensione .bak che salverà nella stessa cartella.

Io non so come fare

Avete idee?

Saluti flash.tato