Hämta filnamn till excel

[Huge-RuLeS]

Är det möjligt att hämta exempelvis alla filnamn från en katalog och få in dom i Excel?

 

Exempelvis:

Jag har en katalog med tio musikfiler som jag vill få in i A kolumnen i excel.

 

Går det att göra och isf kan man dölja filändelsen? (alltså avi, mpg, mp3 osv)

 

Hoppas på svar

MVH

 

[Pejo]

Hej,

 

Har gjort detsamma med XL-filer och då använt VBA-kod i stil med:

 

[color="#0000ff"]Set[/color] fs = [b]Application[/b].FileSearch
[color="#0000ff"]With[/color] fs
    .LookIn = [GRÅ]"Folder"[/GRÅ]
    .FileName = [GRÅ]"*.xls"[/GRÅ]
    [color="#0000ff"]If[/color] .[color="#0000ff"]Execute[/color](SortBy:=msoSortByFileName, _
    SortOrder:=msoSortOrderAscending) > 1 [color="#0000ff"]Then[/color]
        [color="#0000ff"]For[/color] i = 1 [color="#0000ff"]To[/color] .FoundFiles.Count - 1
            fname = [color="#0000ff"]Mid[/color](.FoundFiles(i), [color="#0000ff"]Len[/color](.FoundFiles(i)) - 7, 4)
        [color="#0000ff"]Next[/color] i
    [color="#0000ff"]End[/color] [color="#0000ff"]If[/color]
[color="#0000ff"]End[/color] [color="#0000ff"]With[/color]

 

Där jag får ut filnamnen i bokstavsordning. Dock vet jag att de bara är 4 tecken (i det här fallet årtal).

Koden hittade jag (åtminstone delar av) någonstans, men kommer inte ihåg var. Dock finns det mycket mer information om liknande saker på http://www.xldennis.com

 

mvh

/Johan

 

[inlägget ändrat 2005-02-15 20:55:17 av Pejo]