Count number of files in a folder 1

[JonathonC]

How can I count the number of files which have no file extension (the file dosen't have .something on the end of the file name) in a particular directory?

Thanks Jonathon. Computer problems? Have you checked the loose nut in front of the keyboard yet?

 

[JustinEzequiel]

Option Explicit

Sub main()
Dim oFSO ' As Scripting.FileSystemObject
Dim oFolder ' As Scripting.Folder
Dim oFile ' As Scripting.File
Dim nCount As Long

Set oFSO = CreateObject("Scripting.FileSystemObject&quot
Set oFolder = oFSO.GetFolder("C:\&quot
For Each oFile In oFolder.Files
If oFSO.GetExtensionName(oFile.Name) = "" Then
nCount = nCount + 1
Debug.Print oFile.Name
End If
Next oFile

MsgBox nCount
End Sub