Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Assembla file - Assembla.frm

Assembla.frm

Caricato da: Antometal
Scarica il programma completo

  1. Option Explicit
  2. Dim Info() As String
  3.  
  4. Private Sub cmdAssembla_Click()
  5. Dim Data(511) As Byte
  6. Dim I As Integer
  7.     If MsgBox("Assemblare il file: " & Info(0) & vbCrLf & "di " & Info(2) & " Kb" & vbCrLf & "in " & txtXcorsoDest & "?", vbInformation + vbYesNo + vbDefaultButton2) = vbYes Then
  8.         pbrAssembla.Max = Info(2)
  9.         Open CDialog.FileName For Binary As 1
  10.             For I = 0 To Info(1)
  11.                 Open Replace(CDialogOpen.FileName, ".datanto", I & ".ant") For Binary As 2
  12.                     Do While EOF(2) = False
  13.                         Get 2, , Data
  14.                         Put 1, , Data
  15.                     Loop
  16.                     pbrAssembla.Value = pbrAssembla.Value + LOF(2) \ 1000
  17.                 Close 2
  18.             Next I
  19.         Close 1
  20.             If CBool(chkElimina.Value) = True Then
  21.                 For I = 0 To Info(1)
  22.                     Kill (Replace(CDialogOpen.FileName, ".datanto", I & ".ant"))
  23.                 Next I
  24.                 Kill (CDialogOpen.FileName)
  25.             End If
  26.         MsgBox "Files assemblati correttamente", vbInformation
  27.         pbrAssembla.Value = 0
  28.     End If
  29. End Sub
  30.  
  31. Private Sub cmdXcorsoDest_Click()
  32. CDialog.FileName = Info(0)
  33. CDialog.ShowSave
  34. txtXcorsoDest.Text = CDialog.FileName
  35. End Sub
  36.  
  37. Private Sub cmdXcorsoSorg_Click()
  38. Dim Riga As String
  39. CDialogOpen.ShowOpen
  40. Open CDialogOpen.FileName For Input As 1
  41. Input #1, Riga
  42. Info = Split(Riga, "\")
  43. txtXcorsoSorg.Text = CDialogOpen.FileName
  44. Close 1
  45. End Sub