Tiedostojen lisääminen?

sain onnistumaan. Käytössä Excel 2000. Käytin tietojen tallentamiseen ilmaista suomenkielistä XnView kuvanhallinta ohjelmaa. Muissakin voi olla sama toiminto.Eli:
Avaa XnView - selaa kansio jossa kuvat ovat - Muokkaa - valitse kaikki - klikkaa hiiren oikealla valittuja kuvia - valitse 'luo tiedostolistaus' - tallenna .txt tiedostona.
Avaa Excel - avaa .txt-tiedosto johon tallensit edellä.
Avautuu "Ohjattu tekstin tuominen" - ruksaa "Erotettu" - alhaalta 'Seuraava' - ruksaa Erottimet kohdasta "Väli" - 'Seuraava' - ja jos näyttää olevan oikein sitten "Valmis" ja kuvien tiedot on jaettu eri soluihin.
XnView: voi ladata tästä:
http://www.download.fi/tyopoytaohjelmat/kuvankasittely/xnview.cfm

moduuliin... ja viittaus Microsoft Scripting Runtime kirjastoon
voit hakea muitakin tietoja lisäämällä
Range("A" & rivi) = Tiedosto.(ja valikosta lisää)

Sub Testi()
Columns("A:E") = ""
Range("A1").Formula = "Tiedoston nimi:"
Range("B1").Formula = "Tiedoston koko kt:"
Range("C1").Formula = "Tiedoston tyyppi:"
Range("D1").Formula = "Luotu pvm:"
Range("E1").Formula = "Muokattu viimeksi pvm:"
Range("A1:E1").Font.Bold = True
Listaa "C:\Testikansio"
End Sub

Sub Listaa(LähdeKansionNimi As String)
Dim FSO As Scripting.FileSystemObject
Dim LähdeKansio As Scripting.Folder
Dim Tiedosto As Scripting.File
Dim rivi As Long
Set FSO = New Scripting.FileSystemObject
Set LähdeKansio = FSO.GetFolder(LähdeKansionNimi)
rivi = Range("A65536").End(xlUp).Row 1
For Each Tiedosto In LähdeKansio.Files
Range("A" & rivi) = Tiedosto.Name
Range("B" & rivi) = Tiedosto.Size
Range("C" & rivi) = Tiedosto.Type
Range("D" & rivi) = Tiedosto.DateCreated
Range("E" & rivi) = Tiedosto.DateLastModified
rivi = rivi 1
Next Tiedosto
Columns("A:E").AutoFit
Set Tiedosto = Nothing
Set LähdeKansio = Nothing
Set FSO = Nothing
End Sub