Private Sub ListXML() Dim sFile As String Dim i As Long, kat As String i = 1 kat = „c:\batman\*.xml”
Daily Archives: 11-05-2010
Excel, Visal Basic
Excel – listowanie plików w katalogu
by admin • • 0 Comments
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