errement dans taille fichier Résolu

Question

Bonjour &#224; tous,

Lorsque j'enl&#232;ve les apostrophes devant les lignes traitant des  'intlngch', je peux donc, en principe, trier les fichiers par extension et effectivmeent &#231;a fonctionne sauf que je ne sais pas avoir la taille de ces fichiers tri&#233;s, un message me dit fichiers non trouv&#233;s, alors qu'ils sont bien l&#224;, puisque si je ne demande pas la taille, ils sont bien dans la base de donn&#233;es.
Que peut-il se passer?
Merci d'avance &#224; ceux qui pourraient me donner une r&#233;ponse.

 Dim intN As Integer, intDirectory As Integer, intlngch As Integer
    Dim strFileName As String, strDirectoryList() As String, strtemp As String
    Dim LaDate As Date
    'Lister d'abord tous les fichiers normaux de ce r&#233;pertoire
    strFileName = Dir(CurrentPath)
    Do While strFileName <> ""
   ' intlngch = Len(strFileName) - 2
   '     If intlngch > 3 Then
   '         'Recuperation de l'extension du fichier dasn la chaine strtemp
   '         strtemp = Mid(strFileName, intlngch, 3)   '         If (strtemp "zip" Or strtemp "mdb") Then
   '             strFileName = Mid(strFileName, 1, (intlngch - 2))
               'pour le stockage dans une base access
                rc.AddNew
                rc![File_Name] = strFileName & "." & strtemp
                rc![File_Path] = CurrentPath
                rc![Taille] = FileLen(CurrentPath & strFileName) & " bytes"
                'rc![Taille] = FileLen(CurrentPath & "" & strFileName) & " bytes"
                'rc![DateCr&#233;ation] = FileDateTime(CurrentPath & "" & strFileName)
               ' rc![MotCl&#233;] = Me.txtMotCl&#233;
                rc.Update
    '        End If
    '    End If
        strFileName = Dir
      Loop

Guy FALESSE

mrdep1978 · Accepted Answer

En faisant &#231;a : 
strFileName = Mid(strFileName, 1, (intlngch - 2))
tu as retir&#233; l'extension &#224; ton nom de fichier. 

Si ton fichier s'appelle au d&#233;part c:	oto.zip, tu recherches la taille du fichier c:	oto (sans extension) qui n'existe pas
Tu devrais faire
rc![Taille] = FileLen(CurrentPath & strFileName & "." & strTemp) & " bytes"

Idem pour la date et l'heure du fichier

GuyFALESSE · Answer

salut mrdep1978,

Merci de ta r&#233;ponse.
Super, &#231;a fonctionne impeccablement.

Guy FALESSE

Errement dans taille fichier

2 réponses

Discussions similaires