[RESOLVED] display no of files in a folder[whats wrong here]

[shakti5385]

error occuring invalid procedure call or argumant......
in following code

Dim objFS As New Scripting.FileSystemObject
Dim objFolder As Scripting.Folder
Private Sub Command2_Click()
If objFS.FolderExists("C:\windows\system") Then
    Set objFolder = objFS.GetFolder("C:\windows\system")
    MsgBox objFolder.Files.Item(2).Name
End If
 
Set objFolder = Nothing
Set objFS = Nothing
End Sub