Re: Pridat slovo na konec prvniho radku

> ludia preco tak zlozito??
> pisem to z hlavy tak pred tym si to zazalohuj
> vloz do txt a uloz ako vbs
> ak chces aj rekursiu cez podadresare napis....
> ak chces dodavat cestu dynamicky napis...
> 
> -------------- cut start --------------------
> Set fso = CreateObject("Scripting.FileSystemObject")
> Set f = fso.GetFolder("cesta kde su subory") 'priklad: "c:\temp"
> for each s1 in f.Files
> call recreate_file s1
> next
> msgbox "ukoncene"
> 
> sub recreate_file (myTxt)
> rd_new =""
> Set MyFile = fso.OpenTextFile(myTxt,1)
> rd = MyFile.readLine
> rd_new = rd & "ten retazec co tam chces pridat"
> 'MyFile.skipline 'daj prec prvy apostrof ak ti to bude vkladat prvy riadok  2x
> myRest = MyFile.readall
> MyFile.Close
> 
> Set MyFile = fso.CreateTextFile(myTxt, True)
> MyFile.Write rd_new & chr(13) & chr(10)
> MyFile.Write myRest
> MyFile.Close
> end sub
> --------------cut end ----------------------
> 

Jak jsem mohl zapomenout na AleXX -e :-)
Sice me napadlo, ze by to nekdo mohl splacnout v php, ale na VBS jsem
zapomnel. Jak jednoduche to je, kdyz nekdo zna.
Tedy musel jsem udelat malou zmenu, protoze to na me rvalo chybu:
radek ctyri jsem (u-)o-pravil na:
      call recreate_file(s1)
a krasne to funguje.

Diky moc

-- 
Jan Fiser
http://www.zestoda.net
http://wink.unas.cz