[Файловая система] ShellExecute не запускает код, ошибка(Файл занят другой программой.)

[Black_Hole]

Создается файл через fileopen и filewrite 01.bat, после создания файл закрывается через fileclose но при запуске вылазит сообщение с ошибкой(Файл занят другой программой.) логика рушится!!!

Global $a="c:\01.bat"
filewrite(fileopen($a,16+2),"")
filewrite(fileopen($a,16+1),"pause")

fileclose(fileopen($a,16+2))
fileclose(fileopen($a,16+1))
ShellExecute("c:\01.bat")

Уточнение: Пока висит скрипт, если запустить отдельный скрипт 'ShellExecute("c:\01.bat")' появится такая же ошибка, но после закрытия скрипта, ShellExecute("c:\01.bat") работает как нужно.

Вопрос: Где ошибка, как исправить?

 

[madmasles]

Black_Hole,
Прочитайте внимательно в справке про функции

FileOpen()
FileClose()

и найдите сами свою ошибку. ;)

 

[Astel064]

Global $a, $b, $c, $d, $e, $f1, $f2, $f3, $f4, $f5, $z, $Open

$f1="c:\01.bat"
$Open = fileopen($f1,16+2)
filewrite($Open, '@echo off')
sleep(1000)
fileclose($Open)
sleep(1000)
ShellExecute("c:\01.bat")

Пробуйте так...
Если снова выдаст ошибку, то что мешает использовать запуск вместо ShellExecute так:

Run (@ComSpec&' /c "'&$f1&'"')

 

[Black_Hole]

Astel064
Через Run работает, но все-таки хотелось бы выяснить почему через ShellExecute не работает.

 

[mef-t]

Занят по причине того, что Вы его не закрыли.

Посмотрите пример Astel064 с ShellExecute. Там все понятно.

Спойлер: Если все же не понятно

Вы записываете данные в открытый для записи файл, а закрываете при этом вновь открытый для чтения файл.
Не закрыли файл, открытый для записи.

 

[Astel064]

Подробно опишу:

Открытие файла:

$Open] = fileopen($f1,16+2)

После чего - запись:

filewrite($Open, '@echo off')

После чего - закрытие (с помощью возвращаемого значения функции fileopen, в нашем случае - это $Open):

fileclose($Open)

Выходит, что даже паузы не нудны:

Global $a, $b, $c, $d, $e, $f1, $f2, $f3, $f4, $f5, $z, $Open

$f1="c:\01.bat"
$Open = fileopen( $f1, 16+2 )
filewrite( $Open, '@echo off' )
fileclose( $Open )
ShellExecute( "c:\01.bat" )

 

[Black_Hole]

Astel064, mef-t, madmasles
С какими ключами закрыть, этот код чтобы он заработал?

Global $a="c:\01.bat"
filewrite(fileopen($a,16+2),"")
filewrite(fileopen($a,16+1),"pause")

fileclose(fileopen($a,16+2))
fileclose(fileopen($a,16+1))
ShellExecute("c:\01.bat")

С Run он запускается а с ShellExecute нет, так где же ошибка?

 

[inververs]

Black_Hole
ты прям номинант на премию тупица месяца.

 

[Black_Hole]

inververs
ты часом не родственник петросяна?

 

[ivsatel]

Black_Hole
Вот с комментариями.

Global  $f1, $Open

$f1 = @ScriptDir&"\cmd.bat"	; Задаем путь к будущему "батнику"
$Open = fileopen( $f1, 2 )	; Открываем "батник" с параметрами "2 = Открыть только для записи в конец файла, удалив предыдущее содержание"
filewrite( $Open, '@echo off'&@LF&'pause'&@LF&'goto begin'&@LF&'goto exit' )	; Записываем нужные строки, для переноса используем макрос @LF
fileclose( $Open )	;Закрываем файл (освобождаем для других приложений и процессов этот ресурс)
ShellExecute(@ScriptDir&"\cmd.bat")	;Запускаем созданный cmd.bat файл

 

[Black_Hole]

ivsatel
Где в моем коде ошибка, и где написано что код объявленный через переменную, правильнее чистого кода.

 

[BIOS]

Black_Hole
Не наезжай, если сам не можешь додуматься

Комментирую твой код

Global $a="c:\01.bat"
filewrite(fileopen($a,16+2),"") ;Открыть файл, записать в него пустоту
filewrite(fileopen($a,16+1),"pause") ;Открыть файл, записать в него "pause"

fileclose(fileopen($a,16+2)) ;Открыть файл и тут же его закрыть
fileclose(fileopen($a,16+1)) ;Открыть файл и тут же его закрыть
ShellExecute("c:\01.bat")

Я насчитал 4 "открыть" и только 2 "закрыть". Дальше сообразишь?

 

[---Zak---]

здесь был текст - лишний... sorry...

 

[Black_Hole]

BIOS

у их

$Open

Тоже равно 4 или переменная становится равнее объявленного явно, не смешно

 

[C2H5OH]

Что за изврат писать вызовы в параметах? Вы наивно полагаете что это оптимизирует код?

Black_Hole,
Тебе Astel064 и ivsatel написали корректные, аккуратные скрипты.
Что ещё надо?!

 

[BIOS]

Black_Hole
У "их" FileOpen вызывается только 1 раз, и потом 1 раз FileClose
Т.е. файл один раз открылся и один раз закрылся
А количество $Open хоть 40 пусть будет

 

[Black_Hole]

C2H5OH, BIOS
В итоге: файл открытый как на примере ниже, закрыть нельзя и это не баг это фишка

filewrite(fileopen("c:\01.bat",16+2),"pause")

 

[BIOS]

Это не баг и не фишка
Это твое непонимание принципов программирования
Почитай какойнить самый тупой самоучитель по основам программирования

P.S. Освоишь программирование, сообразишь что и "такое можно закрыть"

 

[Black_Hole]

BIOS
пруфлинк или балабол?

 

[ivsatel]

Black_Hole

Global $c=@ScriptDir&"\cmd.bat"

$a = filewrite(fileopen($c,2),"1")

MsgBox('','FileOpen', $a)

$b = FileClose($a)

MsgBox('','FileClose', $b)

ShellExecute(@ScriptDir&"\cmd.bat")