Commentaires de pneau sur vbfrance

Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

AccueilCodesTutorielsForumsEmploiLivresConnexion

begin process at 2009 01 09 07:40:04

ESSAYEZ WINDOWS 7 GRATUITEMENT DèS DEMAIN par fabien

LUCENE - IGNORER LES ACCENTS LORS DE L'INDEXATION ET LA RECHERCHE | IGNORE DIACRITICS par cyril

MESH OBJECTS BROWSER - MOB 1.0 SUR CODEPLEX par redo

MICROSOFT TAG par khamlon

[LINQTOSQL] REQUêTES ASYNCHRONES SIMULTANéES par NeuroCypher

RE : SOCKET... par Guigar

RE : DATE DE CRéATION D'UN FICHIER par Renfield

RE : MACRO WORD RECHERCHE DE PUCE par Orohena

RE : RECHERCHE D'UNE VALEUR DANS EXCEL EN VBS par SAFENil

RE : AFFICHER DYNAMIQUEMENT LA VALEUR DE LA COULEUR POINTéE PAR LA SOURIS SUR UNE IMAGE par Orohena

+ de logiciels à télécharger

1 330 610 membres
75 nouveaux aujourd'hui
14 644 membres club

Trouver une ressource

Trouvez une ressource parmi 39 262 codes, 1 223 262 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

2 commentaire(s) de pneau sur des sources sur vbfrance

Le : 17/09/2007 10:31:16
Source : ZIP - UNZIP : CLASSES POUR GÉRER VOS ZIPS

Salut à tous,
Lors de la décompression des fichiers, la date du fichier d'origine était perdue... ce qui me posait quelques soucis. J'ai donc modifié la classe pour réécrire la date dans le fichier décompressé.
Le code suivant a été ajouté...
Private Sub zSaveFile(ByVal Path As String, _
                      ByRef Data() As Byte, lLastDate As Integer, lLastTime As Integer)
   Dim FFileDateTime As FILETIME
   Dim hFile         As Long
   Dim retval        As Long
   Dim lfh           As Long

   DosDateTimeToFileTime CLng(lLastDate), CLng(lLastTime), FFileDateTime
    ' Sauvegarde les données dans le fichier
   lfh = FreeFile
   Open Path For Binary As #lfh
      Put #lfh, , Data
   Close #lfh
   hFile = CreateFile(Path, GENERIC_READ Or GENERIC_WRITE, FILE_SHARE_READ, ByVal CLng(0), OPEN_EXISTING, FILE_ATTRIBUTE_ARCHIVE, 0)
   If hFile <> -1 Then
      retval = SetFileTime(hFile, FFileDateTime, FFileDateTime, FFileDateTime)
      retval = CloseHandle(hFile)
   End If
End Sub

sur ce ...
@+
Tchô

Le : 10/09/2007 15:37:42
Source : AFFICHAGE PARTAGE RÉSEAU AVEC CORRESPONDANCE EN LOCAL

ok cela fonctionne. par contre, en plus simple, il suffit de taper la commande Net Share sous une fenetre de commande CMD pour avoir l'équivalent...