1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33
|
Dim tb = Split(str, " ")
Dim tbdate = Split(str, ":")
Dim MaxG = Len(tbdate(0))
Dim MaxD = Len(tbdate(1))
Dim taille = Split(tbdate(0), " ")
Dim test = taille(UBound(taille) - 3)
If Mid(str, 1, 1) = "d" Then
'Test si l'élément est un fichier ou un dossier
If IsNumeric(test) Then
'test pour éviter l'erreur de la date qui n'a pas toujours deux caratères (1 novembre <> 01 novembre)
Grd1.Rows.Add(imgDoss, Mid(tbdate(1), 4, MaxD), taille(UBound(taille) - 3), (Mid(tbdate(0), MaxG - 9, 11) & ":" & Mid(tbdate(1), 1, 2)), "dossier")
Else
Grd1.Rows.Add(imgDoss, Mid(tbdate(1), 4, MaxD), taille(UBound(taille) - 4), (Mid(tbdate(0), MaxG - 9, 11) & ":" & Mid(tbdate(1), 1, 2)), "dossier")
End If
Else
If IsNumeric(test) Then
Grd1.Rows.Add(imgFich, Mid(tbdate(1), 4, MaxD), taille(UBound(taille) - 3), (Mid(tbdate(0), MaxG - 9, 11) & ":" & Mid(tbdate(1), 1, 2)), "fichier")
Else
Grd1.Rows.Add(imgFich, Mid(tbdate(1), 4, MaxD), taille(UBound(taille) - 4), (Mid(tbdate(0), MaxG - 9, 11) & ":" & Mid(tbdate(1), 1, 2)), "fichier")
End If |
Partager