Visual Basic 6 - criptare cartella

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?

Forse qualche api...

zipparli?

tipo zippati ma nn mi inporta che siano compressi i dati.l' importante è che una cartella con i suoi file diventi un file unico

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..

Private Sub Compatta(newpath As String)
Dim FileFinale As String
Dim x As Integer
Dim PathCartella As String
PathCartella = newpath
File1.path = PathCartella
FileFinale = "filedefinitivo"
Open (PathCartella & FileFinale) For Output As #1
For x = 0 To File1.ListCount - 1
If Not File1.List(x) = FileFinale Then
Open (PathCartella & File1.List(x)) For Binary As #2
Print #1, (File1.List(x) & "|" & LOF(2))
Print #1, Input(LOF(2), #2)
Close #2
End If
Next x
Close #1
End Sub

Private Sub Scompatta(newpath As String)
Dim FileFinale As String
Dim PosBarra As Integer
Dim PathCartella As String
Dim InfoLine As String
PathCartella = newpath
File1.path = PathCartella
FileFinale = "filedefinitivo"
Open (PathCartella & FileFinale) For Input As #1
Do While Not EOF(1)
Line Input #1, InfoLine
If Not InfoLine = "" Then
PosBarra = InStr(1, InfoLine, "|", vbTextCompare)
Open (PathCartella & Mid(InfoLine, 1, PosBarra - 1)) For Output As #2
Print #2, Input(CLng(Mid(InfoLine, PosBarra + 1)), #1)
Close #2
End If
Loop
Close #1
End Sub

ok grazie ora provo