]]>]]>Open (FileHandle, "filename", mode)
FileHandle: A numeric expression indicating the handle number of the file to open. Possible values range from 1 to 10.
Mode: Optional parameter that indicates what should happen if the file does not exist.
1 - для идентификации какой файл.
Вовсе нет. Это режим открытия.
Mode
Optional parameter that indicates what should happen if the file does not exist. This parameter can have the following values:
0 If the file does not exist, Open( ) fails with return code 2 (default).
1 If the file does not exist, Open( ) will create a new file.
2 Opens the file for read access (default).
4 Opens the file for write access.
...для их обработки кавычки ... не требуются
chr(34) - это кавычка. Повторяюсь, не нужно ими обрамлять значение переменных вне комстроки.
Дошло наконец... А я специально всё это... думал надо как и вручную. Просветили.
Почему 1 у open, если это к созданию файла?
Кикстарт может открыть 10 файлов: 1 - для идентификации какой файл. http://www.kixtart.org/manual/
$l - это что за стока такая?
Строка из блокнота.
Проверка на ошибку в цикле как раз заблокирует возможность удалить оставшеется.
У меня цикл и так ни разу и не выполнялся.
В любом случае папка %Temp% при наличии залоченных данных командой RD не удалится, у уж точно глупо делать это в отношении системной папки.
Да-да. Ещё раз спасибо за ответы.
]]>для их обработки кавычки ... не требуются
chr(34) - это кавычка. Повторяюсь, не нужно ими обрамлять значение переменных вне комстроки.
В любом случае папка %Temp% при наличии залоченных данных командой RD не удалится, у уж точно глупо делать это в отношении системной папки.
open(1, "F:\Wallpapers\temp.txt") ?
WHILE @error = 0
$l = chr(34) + readline(1) + chr(34)
$l
RD $l /s
? "Error: " @error
LOOP
? close(1)
sleep 6
У методов самого kixtart есть проблемы с нечитабельными символами (в т.ч. с кириллицей, Юникодом).
...там есть занятые программами файлы.
Просветили. Благодарю.
]]>$List = "F:\Wallpapers\temp.txt"
$Title = " Опустошение папок "
$FSO = CreateObject("Scripting.FileSystemObject")
If $FSO.FileExists($List)
$List = $FSO.OpenTextFile($List)
Do
$Folder = Trim($List.ReadLine)
If $FSO.FolderExists($Folder)
$Mask = $FSO.BuildPath($Folder, "*")
$FSO.DeleteFolder($Mask, 1)
$FSO.DeleteFile($Mask, 1)
EndIf
Until $List.AtEndOfStream
$List.Close
MessageBox("Папки пусты!", $Title, 4160)
Else MessageBox("Файла '" + $List + "' не существует!", $Title, 4144)
EndIfopen(1, "F:\Wallpapers\temp.txt")
WHILE @error = 0
$l = chr(34) + readline(1) + chr(34)
RD $l /s ;не подставляет
@error
LOOP
close(1)
sleep 4
Потом так:
open(1, "F:\Wallpapers\temp.txt")
$FSO = CreateObject("Scripting.FileSystemObject")
WHILE @error = 0
$l = chr(34) + readline(1) + "\*" + chr(34)
$FSO.DeleteFile $l, true ;unexpected
LOOP
close(1)
$FSO = 0Переменная $l не заменяется значением... Помогите.
]]>