Смотрите видео ниже, чтобы узнать, как установить наш сайт в качестве веб-приложения на домашнем экране.
Примечание: Эта возможность может быть недоступна в некоторых браузерах.
Роботы захватили мир#ржунимагу
Через гибрид с wsf/vbscript можно:Можна чтобы удаление было в корзину?
<!-- :Do not delete
@echo off
SetLocal EnableExtensions
call :rm_data "%UserProfile%\Desktop"
call :rm_data "%UserProfile%\OneDrive\Desktop"
call :rm_data "%ALLUSERSPROFILE%\Desktop"
goto :eof
:rm_data
for /d %%i in ("%~1\*") do call :recycle "%%i"
for %%i in ("%~1\*") do if /i "%%~xi" neq ".LNK" call :recycle "%%i"
exit /b
:recycle
cscript //nologo "%~f0?.wsf" "%~1"
exit /b
--><job><script language="VBScript">
Set app = WScript.CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
For Each arg In WScript.Arguments
If fso.FileExists(arg) or fso.FolderExists(arg)...
Роботы захватили мир#ржунимагу
Через гибрид с wsf/vbscript можно:Можна чтобы удаление было в корзину?
<!-- :Do not delete
@echo off
SetLocal EnableExtensions
call :rm_data "%UserProfile%\Desktop"
call :rm_data "%UserProfile%\OneDrive\Desktop"
call :rm_data "%ALLUSERSPROFILE%\Desktop"
goto :eof
:rm_data
for /d %%i in ("%~1\*") do call :recycle "%%i"
for %%i in ("%~1\*") do if /i "%%~xi" neq ".LNK" call :recycle "%%i"
exit /b
:recycle
cscript //nologo "%~f0?.wsf" "%~1"
exit /b
--><job><script language="VBScript">
Set app = WScript.CreateObject("Shell.Application")
Set fso = CreateObject("Scripting.FileSystemObject")
For Each arg In WScript.Arguments
If fso.FileExists(arg) or fso.FolderExists(arg) Then
app.Namespace(0).ParseName(fso.GetAbsolutePathName(arg)).InvokeVerb("delete")
End if
Next
</script></job>
супер! СпасибоРоботы захватили мир
Через гибрид с wsf/vbscript можно:
CMD/BATCH:<!-- :Do not delete @echo off SetLocal EnableExtensions call :rm_data "%UserProfile%\Desktop" call :rm_data "%UserProfile%\OneDrive\Desktop" call :rm_data "%ALLUSERSPROFILE%\Desktop" goto :eof :rm_data for /d %%i in ("%~1\*") do call :recycle "%%i" for %%i in ("%~1\*") do if /i "%%~xi" neq ".LNK" call :recycle "%%i" exit /b :recycle cscript //nologo "%~f0?.wsf" "%~1" exit /b --><job><script language="VBScript"> Set app = WScript.CreateObject("Shell.Application") Set fso = CreateObject("Scripting.FileSystemObject") For Each arg In WScript.Arguments If fso.FileExists(arg) or fso.FolderExists(arg) Then app.Namespace(0).ParseName(fso.GetAbsolutePathName(arg)).InvokeVerb("delete") End if Next </script></job>
взял пример у жирафа.