filnavne

"ListFiles" indsætter filnavne i kolonne A og B
Lav rettelser i kolonne B og kør derefter koden "Omdøb"
Ret linien (sti = "C:\Users\pm\Desktop\*.*") til aktuel sti

Sub ListFiles()
sti = "C:\Users\pm\Desktop\*.*"
fil = Dir(sti)
Do While fil <> ""
  Cells(rk + 1, 1) = "C:\Users\pm\Desktop\" & fil
  Cells(rk + 1, 2) = "C:\Users\pm\Desktop\" & fil
  rk = rk + 1
  fil = Dir
Loop
End Sub

Sub Omdøb()
For Each c In Columns("A").SpecialCells(xlCellTypeConstants)
  Name c.Value As c.Offset(0, 1).Value
Next
End Sub

Lille ændring, så behøver du kun rette sti 1 sted

Sub ListFiles()
sti = "C:\Users\pm\Desktop\*.*"
fil = Dir(sti)
Do While fil <> ""
  Cells(rk + 1, 1) = sti & fil
  Cells(rk + 1, 2) = sti & fil
  rk = rk + 1
  fil = Dir
Loop
End Sub

Tak for hjælpen
Jeg prøver den lige og vender tilbage lidt senere,

Til excelent
Denne mappe:
sti = ThisWorkbook.Path & "\"

Cells(rk + 1, 1) = fil
Cells(rk + 1, 2) = fil
Der er sikkert ikke behov for at ændre placering?

Evt tilføjes:
Range("C1").Value = sti

ja, men nu er det ikke givet at filerne er i samme mappe som thisworkbook
Og nej koden er ikke baseret på at ændre stien

Nej, det er rigtigt ;-)
Kun et forslag, kan jo starte med at lægge excel filen ind i den mappen med mp3 filer der skal rettes.

Og i den kode jeg har starter jeg med at slette først.

Hvad sletter du ?

Hele listen.
Jeg 'Gemmer' resultattet af fil søgningen.
Så er en ny søgning helt frisk, ved ikke om det er nødvendigt, men skader ikke.

Hej den virker,
Jeg prøvede selv efter at have læst denne http://www.eksperten.dk/spm/894068men gav op, men hvis du ligger et svar excelent, så får du point-

http://www.eksperten.dk/spm/894068

ok

og mange tak for hjælpen

Min afslutning:
Excel filen lægges ind i mappen med filer der skal rettes.
excelent's kode med et par små ændringer/tilføjelser.

Hej Store-morten

Jeg er igang med at teste din makro, men det driller lidt nu er alle mine mapper skrivebeskyttet så jeg tror at det er derfor den kommer med fejl i denne linje
Name c.Value As c.Offset(0, 1).Value

Hej ulykken-s

Fik du ikke excelent´s til at virke?
Det jeg tilføjede rettede:

Range("A:C").ClearContents
Sletter alt i kolonne A, B og C

sti = ThisWorkbook.Path & "\"
Læser sti i den mappe du har åbnet regnearket fra.

Cells(rk + 1, 1) = fil
Cells(rk + 1, 2) = fil
Slettet sti, så kun filnavn vises.

Range("C1").Value = sti
Range("C3").Value = " 'ListFiles' indsætter filnavne i kolonne A og B"
Range("C4").Value = " Lav rettelser i kolonne B og kør derefter koden 'Omdøb'"
Skriver tekst i celle C1, C3 og C4.

Så hvis du sætter koden ind i et regne ark, og gemmer det.
Kopier det ind i den mappe med mp3 filer du vil rette i.
Kører makroen 'ListFiles' får du listen med fil navne uden sti i kolonne A og B
+ kommentare i C1,C3 og C4.
Ret i kolonne B.
Kør makro 'Omdøb' og dinne rettelser bliver udført.

Jeg læste at det var 'fil navnene i en mappe' du vil rette og ikke nødvendigvis placeringen?

i går prøvede jeg Excelent makro, og jeg syntes at den virkede i den prøve jeg lavede.
Men nu driller det hele. Men jeg prøver lige den makro som du har lagt ind.
Jeg kunne godt tænke mig at den også åbner filer i under mapper og retter filnavne i dem da der er mange mp3 filer

Jeg kan heller ikke få 'rette delen' til at funke?

Det er bare underlig, igår lavede jeg en mappe med en filer i og så prøvede, og der virkede det.

Jeg havde slet ikke prøvet at 'rette'
Da jeg ikke havde behov for det ;-)

Mit forslag virker sikkert ikke, da man ikke kan omdøbe en fil der er åben?

Men bort set fra det kan jeg slet ikke få omdøb delen til at virke?

Jeg har lige testet, og det er den første excelent kom med der virker, jeg skal godt nok ændre stien 3 steder men den virker. nu skal jeg lige se om den tager undermapper med

Nej den tager ikke undermapperne med, den henvise til hver mappe

Hvis du kan nøjes med at browswe til en mappe af gangen så prøv denne, som skriver stien i A1 og filnavne herunder
Du skal stadig rette i kolonne B og derefter køre Omdøb

Sub VælgSti()
Dim x As FileDialog
Set x = Application.FileDialog(msoFileDialogFolderPicker)
x.Show
sti = x.SelectedItems(1)
sti = sti & "\"
Range(Range("A1"), ActiveCell.SpecialCells(xlLastCell)).Clear
Range("A1") = sti
fil = Dir(sti)
Do While fil <> ""
rk = rk + 1
  Cells(rk + 1, 1) = fil
  Cells(rk + 1, 2) = fil
  fil = Dir
Loop
End Sub


Sub Omdøb()
sti = Range("A1").Value
For Each c In Range("A2:A" & Cells(5000, 1).End(xlUp).Row)
  Name sti & c.Value As sti & c.Offset(0, 1).Value
Next
End Sub

Jeg prøver den lige

Det er helt super

Mange tak for hjælpen

velbekom