http://www.eksperten.dk/spm/287433 forsat (Sion)

Den kode du har lagt ud - er det den der fejler? Hvorhenne, og hvilken fejlmeddelse får du?

Linien
1)  MP3s = GetAllFiles("E:\Musik\Shania Twain\", "*.mp3", True).Count
Er identisk med
2)  MP3s = GetAllFiles(Text2.text, "*.mp3", True).Count
hvis text1.text indeholder "E:\Musik\Shania Twain\"

- du behøver ikke engang at skrive Str() i 2), da text1.text er en string i forvejen.

Nu har du ikke skrevet hvilken fejl du får, men jeg går ud fra at programmet virker med 1). Altså må dere være en fejl i Text1.text, og den indeholder ikke det du forventer. Prøv f.eks. at brug trim på den først:

  MP3s = GetAllFiles(trim(Text2.text), "*.mp3", True).Count

Det undrer mig, at t'et i .text står med lille. Hvis koden er kopieret direkte fra VB, vil t'et være stort hvis VB genkender "text" som en egenskab for text1... Kan du følge mig? Det kunne tyde på at text1 ikke er en textbox, eller er en del af et kontrolarray af textboxe, hvor du så har glemt at tilføje indexet Text1(0).Text

Altså - tjek lige omkring Text1 - opret evt en ny testText, og prøv med den - så  er du sikker på den ikke er i et kontrolarray

Jeg fandt ud af at når jeg trykkede på dir1 blev mappe navnet skrevet, og det havde jeg ikke set, damn!
Men det kan være at du kunne give mig en idé til hvordan jeg løber listNummer (listbox'en) igennem og omdøber de fundne filer til orginalnavn - søge strengen ???

NB. Så mappe navnet stod der alså 2 gange og derfor fandt søgningen ikke noget.(det manglede jeg vist lige at forklare)

Brug FSO til omdøbning, eller brug en alm. doskommando via shell (rename fil1.mp3 nytnavn.mp3)

Løbe listboxen igennem: Bare brug et alm for to next loop der løber over listindex fra 0 til list1.count -1

Tak for hjælpen:>