Wielkie dzięki za pomoc - działa dokładnie tak jak chciałem :) extra :)

OK, zrobione. Trochę grzebania w necie bo w skryptach nie jestem tak obcykany, ale się udało. Wklejasz ten kod do pliku tekstowego i zapisujesz jako [i]nazwa_pliku[/i].vbs [code]set objFSO = CreateObject("Scripting.FileSystemObject") StartFolder = InputBox("Podaj ścieżkę do folderu","Foldery") Set Folder = objFSO.GetFolder(StartFolder) Set objExcel = CreateObject("Excel.Application") objExcel.Visible = true Set objWorkbook = objExcel.Workbooks.Add() Set objWorksheet = objWorkbook.Worksheets(1) i = 1 For Each Subfolder in Folder.SubFolders objExcel.Cells(i,1).Value = Subfolder.Name i = i + 1 Next[/code]

Dokładnie tak: - mam np. folder "Użytkownicy" gdzieś na jakimś dysku - w folderze "Użytkownicy" są foldery dla różnych osób np. "Jan Kowalski", "Adam Nowak" itp. itd. - jest ich dość sporo i kopiowanie nazw zajęłoby dużo czasu - w każdym folderze "Jan Kowalski", "Adam Nowak" itp. itd. są albo inne foldery albo pliki albo i to i to I teraz: - chcę mieć (najlepiej w Excelu) listę tylko z nazwami folderów (imię i nazwisko) - nie interesuje mnie co jest w środku - chodzi o wylistowanie wszystkich nazw folderów w jednym folderze

A mógłbyś napisać do czego dokładnie tego potrzebujesz? Chcesz wrzucić do excela wszystkie katalogi znajdujące się na dysku twardym czy tylko wybrane. Mają być same nazwy katalogów czy razem z tym co się w nich znajduje.