Lire/ecrire des fichier tar (ustar)

Soyez le premier à donner votre avis sur cette source.

Vue 15 815 fois - Téléchargée 1 022 fois

Description

C'est une dll activex pour lire/ecrire les fichiers tar
Toutes les fonctionnalites du format tar ne sont pas utilisées mais le principal y est

Source / Exemple :


'Voir zip

Conclusion :


Cette source vous servira surtout pour mon prochain post

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

sirWest
Messages postés
2
Date d'inscription
vendredi 19 novembre 2010
Statut
Membre
Dernière intervention
29 novembre 2010
-
In Function Load:
To properly read directory structured files:

Add check of directory entry with trailing "/": If (vData "" Or vData "/") Then GoTo 1

To properly read 0-size files, comment out the check:
vSize = CLng("&o" & vData)
'If (vSize = 0) Then GoTo 1
sirWest
Messages postés
2
Date d'inscription
vendredi 19 novembre 2010
Statut
Membre
Dernière intervention
29 novembre 2010
-
In Function Load:
To properly read directory structured files:

Add check of directory entry with trailing "/": If (vData "" Or vData "/") Then GoTo 1

To properly read 0-size files, comment out the check:
vSize = CLng("&o" & vData)
'If (vSize = 0) Then GoTo 1
cs_EBArtSoft
Messages postés
4531
Date d'inscription
dimanche 29 septembre 2002
Statut
Modérateur
Dernière intervention
22 avril 2019
5 -
Baddante> merci pour ton aide. Je le modifirais dans une prochaine version

Bonne prog

@+
Baddante
Messages postés
33
Date d'inscription
mercredi 1 mars 2006
Statut
Membre
Dernière intervention
24 février 2008
-
salut,

Super !

j'ai remarqué un bug dans la démo (tardemo.vbp)sur le drag and drop fonction : ListView1_OLEDragDrop

Le plantage survient quand tu sélectionne un dossier ou une sélection qui en comprend un.

Ajout d'un code de vérification en amont de l'appel à "mTar.Files.Append" via FileSystemObject.

Libre à chacun d'enlever les "msgbox" de vérif.
J'ai ajouté un code d'exclusion si le fichier est de taille nul, facultatif.

Code de correction (prévention d'erreur serait plus exact)

Private Sub ListView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, Button As Integer, Shift As Integer, x As Single, y As Single)
Dim n As CTarItem
Dim v As Variant
Dim objFSO, objFolder

Set objFSO = CreateObject("Scripting.FileSystemObject")

For Each v In Data.Files
Set objFSO = CreateObject("Scripting.FileSystemObject")
If objFSO.FileExists(v) Then
Set objFolder = objFSO.GetFile(v)
MsgBox "File existe."
'Check size = 0
If objFolder.Size <> 0 Then
Set n = mTar.Files.Append(CStr(v))
AddItem n.FileName, n.Size, n.DateCrea, n
Else
MsgBox "Le fichier à une taille égale à 0, l'archive ne l'accepte pas."
End If
Else
MsgBox "N'accepte pas les dossiers ou les sélections qui en comprennent."
Exit Sub
End If
Next

Set objFSO = Nothing

End Sub

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.