[Iska]

«Меня терзают смутные сомнения…»

путь до файла прописывается так: strFile = .BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:AppData").self.Path, "Replica\New\1.txt") »

Отсюда что ль?

А вот как прописать этот путь находящийся в Windows 7: C:\Users\All users\Replica\New\1.txt в скрипте? »

Например, так:

Код:

Option Explicit

Dim objFSO
Dim objShell

Set objFSO   = WScript.CreateObject("Scripting.FileSystemObject")
Set objShell = WScript.CreateObject("Shell.Application")

WScript.Echo objFSO.GetAbsolutePathName(objFSO.BuildPath(objShell.NameSpace("shell:Common Documents").self.Path, "..\Replica\New\1.txt"))

Set objShell = Nothing
Set objFSO   = Nothing

WScript.Quit 0

Если Вы, конечно, не пропустили в пути ничего. Точно не:

Код:

C:\Users\All users\AppData\Replica\New\1.txt

?

[Iwest]

Да, скрипт нашел там, но там как понял для XP. Путь точно такой: C:\Users\All users\Replica\New\. По нему находятся два файла 1.txt и App.bk. В чем задача: проверить что они есть на компе и если есть поставить им атрибут чтение. Ну а как вывести сообщение там показано. Попробовал скрипт с одним 1.txt, выводит что файла нет, хотя он есть.

[Iska]

Код:

Option Explicit

Dim strFile
Dim strPath

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each strFile In Array("1.txt", "App.bk")
		strPath = .GetAbsolutePathName(.BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:Common Documents").self.Path, "..\Replica\New\" & strFile))
		
		If .FileExists(strPath) Then
			With .GetFile(strPath)
				If Not .Attributes And 1 Then
					.Attributes = .Attributes Or 1
				End If
			End With
		End If
	Next
End With

WScript.Quit 0

Из этого:

проверить что они есть на компе и если есть …»

видно, что смысла в сообщениях вида «Файл не найден» нет.

[Iwest]

Не получается, походу не находит путь до файлов. А как то проверку выполнения можно сделать, чтобы узнать в чем проблема?

[Iska]

А как то проверку выполнения можно сделать, чтобы узнать в чем проблема? »

Ну, сделайте:

Код:

Option Explicit

Dim strFile
Dim strPath

With WScript.CreateObject("Scripting.FileSystemObject")
	For Each strFile In Array("1.txt", "App.bk")
		strPath = .GetAbsolutePathName(.BuildPath(WScript.CreateObject("Shell.Application").NameSpace("shell:Common Documents").self.Path, "..\Replica\New\" & strFile))
		
		If .FileExists(strPath) Then
			With .GetFile(strPath)
				If Not .Attributes And 1 Then
					.Attributes = .Attributes Or 1
				End If
			End With
		Else
			WScript.Echo "File [" & strPath & "] not found."
		End If
	Next
End With

WScript.Quit 0

[Iwest]

Выводится два сообщения что файлов нет. С:\Пользователи\All Users\Replica\New\ файлы на месте. Надоел уже наверное.

[Iska]

Iwest, мне надо будет добраться до соответствующей версии и попробовать самому посмотреть, что возвращает Проводник.