[Iska]

Надо проверить папку system32 на наличие файла file.txt, и удалить его если он там есть. »

Код:

Option Explicit

Const SystemFolder = 1

Dim strPath


With WScript.CreateObject("Scripting.FileSystemObject")
	strPath = .BuildPath(.GetSpecialFolder(SystemFolder).Path, "file.txt")
	
	If .FileExists(strPath) Then
		.DeleteFile strPath, True
	End If
End With

WScript.Quit 0

Знаю что надо использовать метод ExpandEnvironmentStrings, но как не знаю. »

Код:

Option Explicit

Dim strPath


With WScript.CreateObject("Scripting.FileSystemObject")
	strPath = WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings("%SystemRoot%\System32\file.txt")
	
	If .FileExists(strPath) Then
		.DeleteFile strPath, True
	End If
End With

WScript.Quit 0

Но правильнее — использовать первый код.