Internet Info, s.r.o. Lupa Měšec Podnikatel Root Zdroják DigiZone Slunečnice Vitalia Tuesday TopDrive KupDnes Navrcholu Bomba NovýTarif Dobrý web Weblogy Woko Jagg Computer.cz SK: MojeLinky

Hlavní navigace

Názor ke zprávičce Jednoduché v Linuxu, těžké ve Windows

uživatel si přál zůstat v anonymitě
8. 1. 2009 10:50

RE: Jednoduché v Linuxu, těžké ve Windows

celé vlákno
Bezny uzivatel ma mozek a kdyz mu reknete "vloz ty prikazy do jednoho souboru a mas skript", myslim ze to (narozdil od vas) pochopi. Mam takovych lidi v adresari asi 70.

Soudice dle vasi sablony, by uzivatel neumel ani pridat dalsi vetu v textovem editoru, nerikejte mi ze znate takove lidi :-D

Vlozit radek v textovem editoru nepovazuji za "skriptovat jako divoky" :-P. Z demagogie mate za 1. I bezni lide obcas pouzivaji mozek.

Myslim ze vysypat kos pres rm -rf /cesta je snadnejsi nez:

Option Explicit

Dim intItems, intSize, objBin, strMsg

' Get BinManager object
Set objBin = CreateObject( "BinManager.RecycleBin" )

intItems = objBin.NumItems
intSize = objBin.Size

Select Case WScript.Arguments.Named.Count
Case 0
Case 1
If Not WScript.Arguments.Named.Exists( "Q" ) Then Syntax
Case Else
Syntax
End Select

Select Case WScript.Arguments.Unnamed.Count
Case 0
objBin.Empty
If Not WScript.Arguments.Named.Exists( "Q" ) Then Report
Case 1
If IsNumeric( WScript.Arguments.Unnamed(0) ) Then
.
.
.
.
...atd