RE: kukis

From: Likavcan, Alexander (Alexander.Likavcan@volkswagen.sk)
Date: 04. 06. 2001, 13:46 CEST


Zdar a silu KAB, dna 04.06.2001 si napisal(a):

> > > > > Jak si napat do "denni mazani cookies.vbs" syntaxi na 
> > > > > mazani susenek? del/c c:cookies-
> > > > > Dekuji Ivan Zacek zacekivan@volny.cz
> > > 
> > > AUTOEXEC.BAT radek:
> > > del c:\windows\cookies\*.txt
> > > 
> > a ked mas profily?
> 
> Odpovidal jsem Ivanovi a ten ma urcite W9x :-) Pokud ma profily, 
> tak si najde ten spravnej adresar a jednoduse si prikaz upravi.
> 
> > alebo NT, w2k?
> 
> Na NT uz ted nedelam a tak si to nemuzu vyzkouset, ale snad
> pujde spustit nejakej cookdel.bat ve StartUp, ne?
> 
> Zdar KAB
> 
> 
ja nic, ale da sa to aj takto:
--------------------------------------------------
Set fso = CreateObject("Scripting.FileSystemObject")
' windows folder ci uz windows alebo NT alebo ine
set winFldr= fso.GetSpecialFolder(0) 
Vycisti(winFldr.Path)

Sub Vycisti(path)
   Dim  f, fc, fc1
Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(path)
   Set fc = f.SubFolders
   for each fc1 in fc
   Vycisti(fc1.Path)
   next
   if f.Name = "Cookies"  then 
on error resume next
'True znamena aj read only
fso.deletefile(f.Path &"\*.txt", True)
end if
End Sub
------------------------------------------------

ani to nebolelo :-))))))
-- 
s pozdravom
AleXXX



This archive was generated by hypermail 2.1.2 : 04. 09. 2001, 07:26 CEST