Re: Getting File Info using GetDetailsOf
- From: "scott" <sbailey@xxxxxxxxxxxxxxx>
- Date: Mon, 7 Aug 2006 08:06:06 -0500
FSO actions make Norton give virus warnings.
"Steven Burn" <somewhere@xxxxxxxxxxxxxxx> wrote in message
news:eNLRkIbuGHA.3364@xxxxxxxxxxxxxxxxxxxxxxx
Why not just use FSO?
--
Regards
Steven Burn
Ur I.T. Mate Group
www.it-mate.co.uk
Keeping it FREE!
"scott" <sbailey@xxxxxxxxxxxxxxx> wrote in message
news:ONcHvYauGHA.4968@xxxxxxxxxxxxxxxxxxxxxxx
In CODE 2 I've got a working example from MS showing the properties ofthe
any
files that reside in c:\temp folder.
However, I'm failing miserably in CODE 1 Vbelow when simply trying to
display the date modified property of a single file. My MsgBox displays
text "Date Modified" instead of the ctual datetime value of the property.
What am I doing wrong?
CODE 1 ***********
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\temp")
sFolderTargetDate = objFolder.GetDetailsOf("test.exe", 3)
MsgBox "date stamp: " & sFolderTargetDate
CODE 2 *****************
Dim arrHeaders(35)
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\temp")
For i = 0 to 6
arrHeaders(i) = objFolder.GetDetailsOf(objFolder.Items, i)
Next
For Each strFileName in objFolder.Items
For i = 0 to 6
MsgBox i & vbtab & arrHeaders(i) _
& ": " & objFolder.GetDetailsOf(strFileName, i)
Next
Next
.
- References:
- Getting File Info using GetDetailsOf
- From: scott
- Re: Getting File Info using GetDetailsOf
- From: Steven Burn
- Getting File Info using GetDetailsOf
- Prev by Date: Re: Auto clicking system pop up through script
- Next by Date: Re: Who issued SHUTDOWN
- Previous by thread: Re: Getting File Info using GetDetailsOf
- Next by thread: Re: Getting File Info using GetDetailsOf
- Index(es):
Relevant Pages
|