Codice: Seleziona tutto
Public Class Form1
Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim RicercaConclusa As Boolean = False
Dim ApriFile As New OpenFileDialog()
ApriFile.Filter = "Mesh Re-Volt(*.prm)|*.prm"
If ApriFile.ShowDialog() = DialogResult.Cancel Then
MsgBox("Non hai selezionato nessun file", vbExclamation, "Messaggio")
Exit Sub
End If
Dim FileArray() As Byte = My.Computer.FileSystem.ReadAllBytes(ApriFile.FileName)
Dim Start As Integer = (BitConverter.ToInt16(FileArray, 0)) * 60 + 16
For x = Start To FileArray.Length - 1 Step 24
For k = 0 To 12
If x + k > FileArray.Length - 1 Then Exit For
FileArray(x + k) = 0
Next k
Next x
My.Computer.FileSystem.WriteAllBytes(ApriFile.FileName, FileArray, False)
MsgBox("File scritto con successo", vbInformation, "Scrittura")
End Sub
End Class