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:
Ma io voglio che prima di lavorare in HEX faccia un backup in questo modocodice: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 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.codice:My.Computer.FileSystem.WriteAllBytes(SaveFileDialog1.FileName, My.Computer.FileSystem.ReadAllBytes(OpenFileDialog1.FileName), True)
Io non so come fare
Avete idee?
Saluti flash.tato


Rispondi quotando
