Переменная %username% для удаления папки

@lndeterminate · Регистрация: 24.05.2016

Author24 — интернет-сервис помощи студентам

Здравствуйте. Есть ли у кого-нибудь готовый скрипт для удаления папки по %userprofile%? Пробовал вот так, но, ясное дело, не получилось

Visual Basic

1	WScript.CreateObject("Scripting.FileSystemObject").DeleteFile "C:\Users\%USERPROFILE%\AppData\Roaming\1C\1Cv82", True

Я в VB чайник.

@IDK · 25.11.2019, 13:26

MSDN:

RmDir Statement

Removes an existing directory or folder.

Syntax

RmDir path

The required path argument is a string expression that identifies the directory or folder to be removed. The path may include the drive. If no drive is specified, RmDir removes the directory or folder on the current drive.

Remarks

An error occurs if you try to use RmDir on a directory or folder containing files. Use the Kill statement to delete all files before attempting to remove a directory or folder.

@lndeterminate · 25.11.2019, 13:39 **[ТС]**

IDK, мне нужно сделать именно скрипт для vbs, чтобы встроить в логон.

@Kogb · 26.11.2019, 16:10

Visual Basic

dim oFso, oShell, oShellEnv, USERPROFILE, filesys
 
set oShell    = WScript.CreateObject("WScript.Shell")
set oShellEnv = oShell.Environment("Process")
USERPROFILE  = oShellEnv("USERPROFILE")
Set filesys = CreateObject("Scripting.FileSystemObject") 
If filesys.FolderExists(USERPROFILE & "\AppData\Roaming\1C\1Cv82") Then 
filesys.DeleteFolder USERPROFILE & "\AppData\Roaming\1C\1Cv82" 
End If

@lndeterminate · 27.11.2019, 08:10 **[ТС]**

Kogb, мужик, ты лучший. Большое спасибо, все получилось)

@IDK 63 / 48 / 12 Регистрация: 28.12.2014 Сообщений: 270
	25.11.2019, 13:26	2
	MSDN: RmDir Statement Removes an existing directory or folder. Syntax RmDir path The required path argument is a string expression that identifies the directory or folder to be removed. The path may include the drive. If no drive is specified, RmDir removes the directory or folder on the current drive. Remarks An error occurs if you try to use RmDir on a directory or folder containing files. Use the Kill statement to delete all files before attempting to remove a directory or folder. 0

@lndeterminate 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 18
	25.11.2019, 13:39 [ТС]	3
	IDK, мне нужно сделать именно скрипт для vbs, чтобы встроить в логон. 0

@lndeterminate 0 / 0 / 0 Регистрация: 24.05.2016 Сообщений: 18
	27.11.2019, 08:10 [ТС]	5
	Kogb, мужик, ты лучший. Большое спасибо, все получилось) 0

Переменная %username% для удаления папки

Решение