Private Sub ListXML()
Dim sFile As String
Dim i As Long
i = 1
sFile = Dir(„c:\bat\*.bat”) '<=== change to suit
Do While sFile <> „”
Cells(i, „A”).Value = sFile
On Error Resume Next
sFile = Dir
Debug.Print sFile
On Error GoTo 0
i = i + 1
Loop
End Sub