date
date
(OP)
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 :)
I'm trying to create a macro that generates "Date created" of a catia product!
as shown in the attached picture,
thank you :)





RE: date
RE: date
RE: date
Regards
Fernando
https://picasaweb.google.com/102257836106335725208
https://picasaweb.google.com/103462806772634246699...
RE: date
CODE --> vbs
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!!
RE: date
CODE -->
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 SubRE: date
CODE --> vbs
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