Capturing file attributes

[JH]

I am scanning selected drives and computers and capture all files and their
attributes. I am using the scripting file system object. It takes a long
time to collect the attributes. Is there a better and faster way of
capturing file attributes of all files in a selected drive or computer.

CreateObject("S cripting.FileSy stemObject")
Folder = fso.GetFolder(F name)
For Each File In Folder.Files

Thanks

[Herfried K. Wagner [MVP]]

* "JH" <yh*******@yaho o.com> scripsit:

I am scanning selected drives and computers and capture all files and their
attributes. I am using the scripting file system object. It takes a long
time to collect the attributes. Is there a better and faster way of
capturing file attributes of all files in a selected drive or computer.

Did you already have a look at the 'System.IO' namespace (I am not sure
if this will give you a speed improvement, but it you will get rid of
the FSO component).

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>

[Armin Zingler]

"JH" <yh*******@yaho o.com> schrieb

I am scanning selected drives and computers and capture all files and
their attributes. I am using the scripting file system object. It
takes a long time to collect the attributes. Is there a better and
faster way of capturing file attributes of all files in a selected
drive or computer.

CreateObject("S cripting.FileSy stemObject")
Folder = fso.GetFolder(F name)
For Each File In Folder.Files

Don't use the Filesystemobjec t. Use the functions built into the Framework:
- System.IO.File. GetAttributes
- System.IO.FileS ystemInfo.Attri butes
--
Armin

How to quote and why:
http://www.plig.net/nnq/nquote.html
http://www.netmeister.org/news/learn2quote.html

[Ken Tucker [MVP]]

Hi,

Imports System.IO

Module Module1

Sub Main()
Dim strFile As String

For Each strFile In Directory.GetFi les("C:\")
Dim fi As New FileInfo(strFil e)
Console.WriteLi ne(String.Forma t("{0} {1}", fi.Name,
fi.Attributes.T oString))
Next
End Sub

End Module

Ken
--------------------
"JH" <yh*******@yaho o.com> wrote in message
news:eA******** ******@TK2MSFTN GP09.phx.gbl...

I am scanning selected drives and computers and capture all files and their
attributes. I am using the scripting file system object. It takes a long
time to collect the attributes. Is there a better and faster way of
capturing file attributes of all files in a selected drive or computer.

CreateObject("S cripting.FileSy stemObject")
Folder = fso.GetFolder(F name)
For Each File In Folder.Files

Thanks

[JH]

thanks for the info. However, I need all the attributes: size, last
accessed, last modifed, etc...etc...

what do I have to include in the code....given by Ken

Thanks again

[Ken Tucker [MVP]]

Hi,

Take a look at the fileinfo class

http://msdn.microsoft.com/library/de...mberstopic.asp

Imports System.IO

Module Module1

Sub Main()
Dim strFile As String

For Each strFile In Directory.GetFi les("C:\")
Dim fi As New FileInfo(strFil e)
Console.WriteLi ne(String.Forma t("{0} {1} {2} {3}", fi.Name,
fi.LastAccessTi me, fi.Length, fi.Attributes.T oString))
Next
End Sub

End Module

Ken
-----------------------
"JH" <yh*******@yaho o.com> wrote in message
news:uv******** ******@TK2MSFTN GP10.phx.gbl...

thanks for the info. However, I need all the attributes: size, last
accessed, last modifed, etc...etc...

what do I have to include in the code....given by Ken

Thanks again