Cuprins
FileDateTime Descriere
Returnează data și ora când un fișier a fost creat sau modificat ultima dată.
Exemplu simplu FileDateTime
Să presupunem că un fișier „D: \ test.txt” a fost modificat ultima dată pe 21/10/2019 9:41:30 AM.
1 | MsgBox FileDateTime ("D: \ test.txt") |
Acest lucru se va întoarce în 21 decembrie 2019 09:41:30.
Sintaxa FileDateTime
În Editorul VBA, puteți tasta „FileDateTime (” pentru a vedea sintaxa pentru funcția FileDateTime:
Funcția FileDateTime conține un argument:
PathName: O expresie șir care reprezintă un fișier / folder / unitate.
Exemple de funcții Excel VBA FileDateTime
Pentru a afișa ultima oră modificată a folderului și fișierelor de pe unitatea C, puteți utiliza următorul cod.
123456789101112131415161718192021222324 | Sub Dir_Example ()Dim fileName As StringDim fullName As StringDim rng As RangeDim i IntegerSetați rng = Range ("A1")fileName = Dir ("C: \", vbDirectory)i = 1DofullName = "C: \" & fileNamerng.Offset (i, 0) = FileNamerng.Offset (i, 1) = FileDateTime (fullName)rng.Offset (i, 2) = FileLen (fullName)rng.Offset (i, 3) = GetAttr (fullName)fileName = DirDacă fileName = "" Apoi ieșiți din Doi = i + 1BuclăSfârșitul Sub |
Rezultatul va fi similar cu următorul.