Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Windows [игнор отключен] [закрыт для гостей] / помогите найти ошибку / 9 сообщений из 9, страница 1 из 1
26.04.2010, 12:02
    #36598039
mx111
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
if exist "%TEMP%/IS-BUILDER" then
RMDIR /s/q "%TEMP%/IS-BUILDER/CacheData" &&
RMDIR /s/q "%TEMP%/IS-BUILDER/MetaData


Задача: удлаить подпапки в папке IS-BUILDER
...
Рейтинг: 0 / 0
26.04.2010, 12:57
    #36598199
Anatoly Podgoretsky
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
Как минимум, нужен другой слеш
...
Рейтинг: 0 / 0
26.04.2010, 13:58
    #36598398
mx111
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
ошибка осталась
...
Рейтинг: 0 / 0
26.04.2010, 15:49
    #36598740
Cerebrum
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
mx111ошибка осталась
слэши не в ту сторону
...
Рейтинг: 0 / 0
26.04.2010, 17:36
    #36599044
mx111
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
да исправил я их. но ошибка та же
...
Рейтинг: 0 / 0
26.04.2010, 18:23
    #36599151
k-nike
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
Это потому что у вас смесь vbs и cmd.
Остановитесь на чем-нибудь одном и используйте соответствующий синтаксис.
...
Рейтинг: 0 / 0
27.04.2010, 16:46
    #36601132
mx111
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
помогите плиз сделать из этого работающий vbs
...
Рейтинг: 0 / 0
27.04.2010, 17:32
    #36601299
mx111
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
или лучше вот: пример кода
Set filesys = CreateObject("Scripting.FileSystemObject")
Set objFolder = filesys.GetFolder("c:\Temp\")
For Each File in objFolder.Files
If LCase(filesys.GetExtensionName(File)) = "cfg" AND _
DateDiff("D", File.DateLastModified, Now) > 0 Then
File.Delete true
End If
Next

помогите переделать чтоб он удалял файлы в двух папках TEMP (одна в корне, а другая в профиле пользователя). Т.е. если не нашел папку в корне, пусть лезет в профиль. Хелп плиз!
...
Рейтинг: 0 / 0
29.04.2010, 19:53
    #36606135
The Dim!
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
помогите найти ошибку
Ну как-то так вот...


Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Set filesys = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")

If filesys.FolderExists("C:\Temp") Then
	Set objFolder = filesys.GetFolder("C:\Temp")
	For Each File in objFolder.Files
		If LCase(filesys.GetExtensionName(File)) = "txt" AND DateDiff("D", File.DateLastModified, Now) >  0  Then
		File.Delete true
		End If
	Next
End If

If filesys.FolderExists(WshShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Local Settings\Temp") Then
	Set objFolder = filesys.GetFolder(WshShell.ExpandEnvironmentStrings("%USERPROFILE%") & "\Local Settings\Temp")
	For Each File in objFolder.Files
		If LCase(filesys.GetExtensionName(File)) = "txt" AND DateDiff("D", File.DateLastModified, Now) >  0  Then
			File.Delete true
		End If
	Next
End If

А уверен что C:\Temp а не %SystemDrive%\Temp?
...
Рейтинг: 0 / 0
Форумы / Windows [игнор отключен] [закрыт для гостей] / помогите найти ошибку / 9 сообщений из 9, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]