По моему они для себя каникулы делают:Hmm::
"Согласно указу, нерабочие дни с сохранением зарплаты продлятся с 30 марта по 3 апреля. Они не распространяются на работников непрерывно действующих организаций, больниц и аптек, компаний, которые обеспечивают население продуктами питания и товарами первой необходимости. Кроме того, выходных не будет у работников, выполняющих неотложные работы в условиях ЧС, и «в иных случаях, ставящих под угрозу жизнь или нормальные жизненные условия населения». Организации, которые заняты неотложными ремонтными и погрузочно-разгрузочными работами, также не уходят на «каникулы».
И только предлагает.
По моему они для себя каникулы делают:Hmm::
"Согласно указу, нерабочие дни с сохранением зарплаты продлятся с 30 марта по 3 апреля. Они не распространяются на работников непрерывно действующих организаций, больниц и аптек, компаний, которые обеспечивают население продуктами питания и товарами первой необходимости. Кроме того, выходных не будет у работников, выполняющих неотложные работы в условиях ЧС, и «в иных случаях, ставящих под угрозу жизнь или нормальные жизненные условия населения». Организации, которые заняты неотложными ремонтными и погрузочно-разгрузочными работами, также не уходят на «каникулы».
И только предлагает.
Скажу проще политика тут на форуме не уместна.
У каждого свои мнения и видения.
По этому прошу прекратить поднимать такие темы.
А по поводу вируса смёется тот,кто смеётся последний.
Жесткие меры по карантину лучший выход , надеюсь меньшей кровью.
Подскажите почему не работает скрипт, запуская а толку 0 через что его запускать?
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set strFolder = fso.GetFolder(WshShell.ExpandEnvironmentStrings("%APPDATA%"))
TempGameFolder = (strFolder & "\" & "Wargaming.net" & "\" & "WorldOfTanks")
Set objFSO=Createobject("Scripting.Filesystemobject")
Set objFolder=objFSO.GetFolder(TempGameFolder)
Set objFiles=objFolder.Files
For Each objFile In objFiles
If objFile.Name <> "preferences.xml" Then
If objFile.Name <> "customization.dat" Then
If objFile.Name <> "modsettings.dat" Then
If objFile.name <> "wn8.json" Then
If objFile.Name <> "wn8scales.json" Then
objFSO.DeleteFile TempGameFolder & "\" & objFile.Name, True
End if
For Each objSubFolder In objFolder.SubFolders
If objSubFolder.Name <> "custom_data" Then
objFSO.DeleteFolder TempGameFolder & "\" & objSubFolder.Name
End if
Next
MsgBox TempGameFolder & chr(13) & oFolder & chr(13) & TempSysFolder & chr(13) & chr(13) & chr(13) & " КЕШ УСПЕШНО ОЧИЩЕН "
End if
End if
End if
End if
Next