Imports - Count files in a folder

[Central_IT]

I wonder if anyone could help me. I have the following function I took from VB6 and entered it into VB.Net 2005. When I try and compile it, I get lines under Scripting.FileSystemObject & Scripting.Folder. I know you have to use Imports but what one do I use. This function is in a module. If anyone has a different way to do a files in folder count let me know. Public Function FileCount(ByVal DirectoryName As String) As Long 'E.g. MsgBox FileCount("C:\windows")' Dim objFS As New Scripting.FileSystemObject Dim objFolder As Scripting.Folder If objFS.FolderExists(DirectoryName) Then Set objFolder = objFS.GetFolder(DirectoryName) FileCount = objFolder.Files.Count End If ' Set objFolder = Nothing Set objFS = Nothing End Function

[originSH]

Check out the System.IO.Directory class, it'll do the counting stuff for you.

[Kerry Drake]

This MIGHT help:

The FSO model is contained in the Scripting type library, which is located in the file Scrrun.dll. If you don't already have a reference to it, you can create one.

To create a reference to the Scripting type library (Scrrun.dll)

1. On the Project menu, click Add Reference, and then click the COM tab.
2. Choose Microsoft Scripting Runtime from the Component Name list, and then click Select.

You can now use the Object Browser to view the FSO model's objects, collections, properties, methods, events, and constants.

My goal in life is to be the kind of person my dog thinks I am.

[Dave Kreskowiak]

There is no import for the FileSystemObject. You would normally have to set a reference to the Windows Scripting Host. But, it's pointless to do this under the .NET Framework. Scrap this code and rewrite it using the classes in the System.Io namespace. The FileSystemObject is not needed in VB.NET. Also, the return type, Long in VB6, is a 32-bit signed interger. In VB.NET, this same Long datatype name is a 64-bit signed integer. Be careful when translating VB6 code to VB.NET.

Imports System.Io
.
.
.
Public Shared Function GetFileCount(ByVal folderPath As String) As Integer
If Not Directory.Exists(folderPath) Then
Throw New DirectoryNotFoundException("The specified path was not found.")
End If

Dim filenames As String()
filenames = Directory.GetFiles(folderPath)
Return filenames.Length

End Function

A guide to posting questions on CodeProject[^]
Dave Kreskowiak Microsoft MVP Visual Developer - Visual Basic
     2006, 2007

[mr_lasseter]

Try using the System.IO functions rather than using the old VB6 functions. When you are coding in .Net you should always look for the new ways to do things rather than the old VB6 functions, you never know when they are going to cease to exists, so you might as well conform now. Imports System.IO Private Function GetFileCount(Byval path as String) as Integer Dim dirInfo As New IO.DirectoryInfo(path) Dim files() As FileInfo = dirInfo.GetFiles() return files.GetUpperBound(0) + 1 End Function

Mike Lasseter