Beste forumleden,
Ik heb code in elkaar geknutseld om XML-bestanden (*.xml) te tellen in de map "C:\Temp\XML". Maar er zit nog ergens een fout in, want deze code telt alle bestanden.
Wat heb ik verkeerd?
Ik heb code in elkaar geknutseld om XML-bestanden (*.xml) te tellen in de map "C:\Temp\XML". Maar er zit nog ergens een fout in, want deze code telt alle bestanden.
Wat heb ik verkeerd?
Code:
On Error GoTo Err_Count_XML
Dim strDir As String
Dim fso As Object
Dim objFiles As Object
Dim obj As Object
Dim lngFileCount As Long
strDir = "C:\Temp\XML"
Set fso = CreateObject("Scripting.FileSystemObject")
Set objFiles = fso.GetFolder(strDir).files
lngFileCount = objFiles.Count
For Each objF In objFiles
If objF.Name Like "*.xml" Then
Me.aantal_XML = lngFileCount
End If
Next objF
Me.Refresh
If Me.aantal_XML = "" Or IsNull(Me.aantal_XML) Then
Me.aantal_XML = 0
End If
Err_Count_XML:
Me.aantal_XML = 0
End Sub