Newsgroup: it.comp.appl.access
Titolo: Proprietà di un file (word excel .....)

Ho necessità di recuperare le informazioni riguardanti la data di
creazione,di ultima modifica, del creatore ecc... di un determinato file
(excel, word ecc...) Ho il percorso completo di questo file. Esiste un
comando che mi riporti questi dati? (in pratica tasto dx proprietà del
file stesso) Mi potrebbero servire tutti i dati.
Grazie mille
Marco
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

 -- 
Alcune informazioni relative ad un file le puoi recuperare tramite le
funzioni FileDateTime, FileLen, GetAtrrr, LOF (vedi help).
-- 
Roberto
---------------------------------------------
il Sito Comune di it.comp.appl.access:
http://www.sitocomune.com
---------------------------------------------

 --
Oltre al suggerimento di Roberto puoi utilizzare questo esempio:
'--> inserisci i riferimenti alla libreria Microsoft Scripting
Dim obj As FileSystemObject, file As Variant
Set obj = CreateObject("Scripting.FileSystemObject")
Set file = obj.GetFile("c:\documenti\ElencoProgettiProblemi.doc")
    Debug.Print "nome: " & file.Name
    Debug.Print "creato il: " & file.DateCreated
    Debug.Print "modificato il: " & file.DateLastModified
    Debug.Print "ultimo accesso: " & file.DateLastAccessed
    Debug.Print "drive: " & file.drive
    Debug.Print "byte: " & file.Size
    Debug.Print "tipo: " & file.Type
    Debug.Print "nome 8.3: " & file.ShortName
    Debug.Print "percorso 8.3: " & file.ShortPath
    Debug.Print "attributi: " & file.Attributes
    Debug.Print "- - - - - - - - - - - - - -"
set file = nothing
set obj = nothing
Diversa è la situazione se vuoi leggere le proprietà del documento word
(office in genere):titolo, oggetto,autore etc. etc.; per fare questo MS ti
fa scaricare un activex (DSOleFile) che fa proprio quello che chiedi:
Es.
Dim oDoc As DSOleFile.DocumentProperties, oDocProp As
DSOleFile.PropertyReader
Set oDocProp = CreateObject("DSOleFile.PropertyReader")
Set oDoc = oDocProp.GetDocumentProperties("C:\Documenti\prova.doc")
Debug.Print "Subject: " & oDoc.Subject
Debug.Print "Category: " & oDoc.Category
Debug.Print "Company: " & oDoc.Company
Debug.Print "Manager: " & oDoc.Manager
Debug.Print "CLSID: " & oDoc.CLSID
Debug.Print "ProgID: " & oDoc.ProgId
Debug.Print "Word Count: " & oDoc.WordCount
Debug.Print "Page Count: " & oDoc.PageCount
Debug.Print "Paragraph Count: " & oDoc.ParagraphCount
Debug.Print "Line Count: " & oDoc.LineCount
Debug.Print "Character Count: " & oDoc.CharacterCount
Debug.Print "Character Count (w/spaces): " & oDoc.CharacterCountWithSpaces
Debug.Print "Byte Count: " & oDoc.ByteCount
Debug.Print "Slide Count: " & oDoc.SlideCount
Debug.Print "Note Count: " & oDoc.PresentationNotes
Debug.Print "Hidden Slides: " & oDoc.HiddenSlides
Debug.Print "MultimediaClips: " & oDoc.MultimediaClips
Debug.Print "Last Edited by: " & oDoc.LastEditedBy
Debug.Print "Date Created: " & oDoc.DateCreated
Debug.Print "Date Last Printed: " & oDoc.DateLastPrinted
Debug.Print "Date Last Saved: " & oDoc.DateLastSaved
Debug.Print "Total Editing Time (mins): " & oDoc.TotalEditTime
Debug.Print "Version: " & oDoc.Version
Debug.Print "Revision Number: " & oDoc.RevisionNumber
Debug.Print "Template Name: " & oDoc.Template
Debug.Print "Presentation Format: " & oDoc.PresentationFormat
Set oDoc = Nothing
Set oDocProp = Nothing
Ciao.
--
Sergio MAZZA

 
  Vai a questo Link:
http://www.mvps.org/access/modules/mdl0003.htm
trovi una funzione bella e pronta a cui devi solo passare il path del 
documento Word.
L'ho provata e va alla grande.
Per gli .xls non so, prova a cambiargli i riferimenti all'oggetto e vedi.
Ciao
Marco

 Marco
Grazie mille siete stati utilissimi come al solito
Marco
Grazie ancora


Marco ha scritto:

Non so se per colpa mia ma a me il link non va
Ciao e grazie cmq


 
Vai su 
http://www.mvps.org
clicca su Dev Ashish's The Access Web
clicca poi su Modules
la terza voce è quella che cerchi
Ciao
Marco