[Arick]

DJ Mogarych, код слишком большой, можно по проще?

Const cHidden = 2 Set objFSO = CreateObject("Scripting.FileSystemObject") outFile = "C:\Users\User\Desktop\New map" Set objFile = objFSO.CreateTextFile(outFile, True) objFile.Write "test line 1" & vbCrLf objFile.Write "test line 2" & vbCrLf objFile.Close Set mapFile = objFSO.GetFile(outFile) mapFile.Attributes = cHidden CreateObject("WScript.Shell").Run Chr(34) & outFile & Chr(34)

Кстати, еще и ошибку выбивает, разрешение отклонено и т.д.