Hur gör man för att söka ut alla underkataloger i en specifik mapp och ge dem ett unikt strängvärde, t.ex katalog A innehåller underkatalog BBB, CCC, DDD. Jag vill då att sträng1 ska vara BBB sträng2 = CCC och sträng3 = DDD dessa värden skall sedan användas till caption på optionbuttons för att markera vilken underkatalog som skall kopieras. Till saken hör att det kan vara ett varierande antal underkataloger mao också varierande antal optionbuttons. Jag kör i VB6.

/ minwanbi

Är inte säker på att jag förstår vad du menar, men för den här typen av filhantering är FSO bra.

Referens: Microsoft Scripting Runtime (scrrun.dll)

Dim fso As New FileSystemObject
Dim fol As Folder
Dim f As Folder


Set fol = fso.GetFolder("e:\")

For Each f In fol.SubFolders

' f.Name = "aaa" ' ändra folderns namn
Debug.Print f.Name

Next f

/Smuts