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]]

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

 

[Armin Zingler]

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]

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/d...ef/html/frlrfsystemiofileinfomemberstopic.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