Private Sub ListXML()
\nDim sFile As String
\nDim i As Long
\ni = 1
\nsFile = Dir(„c:\\bat\\*.bat”) '<=== change to suit
\nDo While sFile <> „”
\nCells(i, „A”).Value = sFile
\nOn Error Resume Next
\nsFile = Dir
\nDebug.Print sFile
\nOn Error GoTo 0
\ni = i + 1
\nLoop
\nEnd Sub<\/p>\n","protected":false},"excerpt":{"rendered":"
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<\/p>\n