date

[mayrou]

HELLO WORLD!

I'm trying to create a macro that generates "Date created" of a catia product!
as shown in the attached picture,
thank you

 

[mayrou]

 

[AlexLozoya]

your attachment does not work.

 

[ferdo]

Did you tried something?

Regards
Fernando

https://picasaweb.google.com/102257836106335725208

https://picasaweb.google.com/103462806772634246699/

 

[mayrou]

Set fs = CreateObject("Scripting.FileSystemObject")
Set rep=fs.getDocument(filename)
txt=""
for each fich in rep.files
txt=txt & chr(10) & fich.name & " (créé le " & left(fich.DateCreated,8) & ")"
next
MsgBox txt,,"liste des fichiers du répertoire " & rep.name 

Dim fso, f_file
set fso = CreateObject("Scripting.FileSystemObject")
Set f_file = fso.GetFile(filename)
ShowFileInfo = "Fichier Modifié: " & f_file.DateCreated
MsgBox(ShowFileInfo)

but it dosn't work!!

 

[AlexLozoya]

Someting to start

Sub File_Info()
    Dim fso As New FileSystemObject
    Dim fls As Files
    
FolderName = "C:\Users\Alex\Desktop"

Set fls = fso.GetFolder(FolderName).Files
For Each fich In fls
        txt = txt & Chr(10) & fich.Name & " (créé le " & Left(fich.DateCreated, 8) & ")"
Next fich
MsgBox txt
                 
End Sub

 

[AlexLozoya]

In Script ..

Sub CATMain()
Dim fso, f
Set fso = CreateObject("Scripting.FileSystemObject")
    
FolderName = "C:\Users\Alex\Desktop"

Set fls = fso.GetFolder(FolderName).Files
For Each fich In fls
        txt = txt & Chr(10) & fich.Name & " (créé le " & Left(fich.DateCreated, 8) & ")"
Next 
MsgBox txt
                 
End Sub