Option Explicit
Dim Info() As String
Private Sub cmdAssembla_Click()
Dim Data(511) As Byte
Dim I As Integer
If MsgBox("Assemblare il file: " & Info(0) & vbCrLf & "di " & Info(2) & " Kb" & vbCrLf & "in " & txtXcorsoDest & "?", vbInformation + vbYesNo + vbDefaultButton2) = vbYes Then
pbrAssembla.Max = Info(2)
Open CDialog.FileName For Binary As 1
For I = 0 To Info(1)
Open Replace(CDialogOpen.FileName, ".datanto", I & ".ant") For Binary As 2
Do While EOF(2) = False
Get 2, , Data
Put 1, , Data
Loop
pbrAssembla.Value = pbrAssembla.Value + LOF(2) \ 1000
Close 2
Next I
Close 1
If CBool(chkElimina.Value) = True Then
For I = 0 To Info(1)
Kill (Replace(CDialogOpen.FileName, ".datanto", I & ".ant"))
Next I
Kill (CDialogOpen.FileName)
End If
MsgBox "Files assemblati correttamente", vbInformation
pbrAssembla.Value = 0
End If
End Sub
Private Sub cmdXcorsoDest_Click()
CDialog.FileName = Info(0)
CDialog.ShowSave
txtXcorsoDest.Text = CDialog.FileName
End Sub
Private Sub cmdXcorsoSorg_Click()
Dim Riga As String
CDialogOpen.ShowOpen
Open CDialogOpen.FileName For Input As 1
Input #1, Riga
Info = Split(Riga, "\")
txtXcorsoSorg.Text = CDialogOpen.FileName
Close 1
End Sub