diky Oldrichu, tohle presne jsem potreboval !!!
mas to u me :)
crudo
----- Original Message -----
From: "Vahalik" <ovahalik@atlas.cz>
To: "Servis-Internet" <servis-internet@nawebu.cz>
Sent: Saturday, April 07, 2001 7:59 AM
Subject: Re: program + adresa - jsem nemehlo
> 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