×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

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 :)

RE: date

(OP)

RE: date

your attachment does not work.

RE: date

(OP)

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

Someting to start

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 Sub 

RE: date

In Script ..


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 

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources