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
Visual Basic 6 - criptare cartella
Forum - Visual Basic 6 - criptare cartella

Avatar
giovanni_ (Normal User)
Newbie


Messaggi: 7
Iscritto: 12/11/2007

Segnala al moderatore
Postato alle 19:16
Lunedì, 12/11/2007
ciao
sapete dirmi come posso fare un programma in vb che mette una cartella e tutti i file e o cartelle in essa contenuti in un unico file?

PM Quote
Avatar
gius (Ex-Member)
Expert


Messaggi: 294
Iscritto: 20/06/2007

Segnala al moderatore
Postato alle 22:05
Lunedì, 12/11/2007
Forse qualche api...:D:ot::ot:

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 22:28
Lunedì, 12/11/2007
zipparli?

PM Quote
Avatar
giovanni_ (Normal User)
Newbie


Messaggi: 7
Iscritto: 12/11/2007

Segnala al moderatore
Postato alle 9:58
Martedì, 13/11/2007
tipo zippati ma nn mi inporta che siano compressi i dati.l' importante è che una cartella con i suoi file diventi un file unico

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 15:30
Martedì, 13/11/2007
ho provato a creare qualcosa. sono riuscito a farlo per i file contenuti nelle cartelle. guarda il procedimento e finisci il codice anche per le cartelle contenute..

Codice sorgente - presumibilmente VB.NET
  1. Private Sub Compatta(newpath As String)
  2. Dim FileFinale As String
  3. Dim x As Integer
  4. Dim PathCartella As String
  5. PathCartella = newpath
  6. File1.path = PathCartella
  7. FileFinale = "filedefinitivo"
  8. Open (PathCartella & FileFinale) For Output As #1
  9. For x = 0 To File1.ListCount - 1
  10. If Not File1.List(x) = FileFinale Then
  11. Open (PathCartella & File1.List(x)) For Binary As #2
  12. Print #1, (File1.List(x) & "|" & LOF(2))
  13. Print #1, Input(LOF(2), #2)
  14. Close #2
  15. End If
  16. Next x
  17. Close #1
  18. End Sub
  19.  
  20. Private Sub Scompatta(newpath As String)
  21. Dim FileFinale As String
  22. Dim PosBarra As Integer
  23. Dim PathCartella As String
  24. Dim InfoLine As String
  25. PathCartella = newpath
  26. File1.path = PathCartella
  27. FileFinale = "filedefinitivo"
  28. Open (PathCartella & FileFinale) For Input As #1
  29. Do While Not EOF(1)
  30. Line Input #1, InfoLine
  31. If Not InfoLine = "" Then
  32. PosBarra = InStr(1, InfoLine, "|", vbTextCompare)
  33. Open (PathCartella & Mid(InfoLine, 1, PosBarra - 1)) For Output As #2
  34. Print #2, Input(CLng(Mid(InfoLine, PosBarra + 1)), #1)
  35. Close #2
  36. End If
  37. Loop
  38. Close #1
  39. End Sub

PM Quote
Avatar
giovanni_ (Normal User)
Newbie


Messaggi: 7
Iscritto: 12/11/2007

Segnala al moderatore
Postato alle 19:16
Martedì, 13/11/2007
ok grazie ora provo

PM Quote