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("Scripting.FileSystemObject")
Folder = fso.GetFolder(Fname)
For Each File In Folder.Files

Thanks

[Herfried K. Wagner [MVP]]

* "JH" <yh*******@yahoo.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*******@yahoo.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("Scripting.FileSystemObject")
Folder = fso.GetFolder(Fname)
For Each File In Folder.Files

Don't use the Filesystemobject. Use the functions built into the Framework:
- System.IO.File.GetAttributes
- System.IO.FileSystemInfo.Attributes
--
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.GetFiles("C:\")
Dim fi As New FileInfo(strFile)
Console.WriteLine(String.Format("{0} {1}", fi.Name,
fi.Attributes.ToString))
Next
End Sub

End Module

Ken
--------------------
"JH" <yh*******@yahoo.com> wrote in message
news:eA**************@TK2MSFTNGP09.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("Scripting.FileSystemObject")
Folder = fso.GetFolder(Fname)
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.GetFiles("C:\")
Dim fi As New FileInfo(strFile)
Console.WriteLine(String.Format("{0} {1} {2} {3}", fi.Name,
fi.LastAccessTime, fi.Length, fi.Attributes.ToString))
Next
End Sub

End Module

Ken
-----------------------
"JH" <yh*******@yahoo.com> wrote in message
news:uv**************@TK2MSFTNGP10.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