> to je hezke, ale nechce se mi kvuli tomu
> pokazde prechazet do dosu :(
> nebylo by nejake winreseni ?
>
> crudo
V pooznamkovem bloku si otevri novy text.soubor, zkopiruj to nej toto
Dim fso
Dim slozka , jmeno , x, vystup, adresar
Dim f
adresar=inputbox("Zadej adresar, ze ktereho chces vypis",,"c:\")
vystup = inputbox("Zadej vystupní soubor",,"c:\windows\plocha\vypis.txt")
Set fso = createobject("scripting.FileSystemObject")
Set f = fso.CreateTextFile(vystup, 1)
Set slozka = fso.GetFolder(Adresar)
For Each x In slozka.Files
jmeno = x.Name
f.WriteLine jmeno
Next
Set f = Nothing
Set slozka = Nothing
Set fso = Nothing
a uloz treba jako "Vypis.vbs"
Oldrich
This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 06:17 CEST