Перейти к содержанию
СофтФорум - всё о компьютерах и не только

про html и javaScript


Рекомендуемые сообщения

помогите кто-нибудь решить задачку

скопировать выбранный файл в указанный

<html>

<head>

<title> форма для ввода файлов</title>

</head>

<body>

<form name="frml" id="frml" action="save.asp" metod="get"

enctype="multipart/form-data">

файл загрузки<br>

<input type="file" id="paramfile" name="paramfile" size="40"> <br>

<input type="submit" value="save">

</form>

<script type="text/javascript" language="javaScript">

<!--

здесь нужно скопировать указанный файл в другой, например c:\MY.*

//-->

</script>

</body>

</html>

проблемы с java,спасибо заранее

и пришлите ссылочку, где почитать подробнее

Ссылка на комментарий
Поделиться на другие сайты

  • 3 недели спустя...

Есть специальные контрол в IE, но работает он только если уровень безопасности установлен в самый низкий, а в других браузерах вообще такой возможности нет. Так что лучше не браться средствами HTML+JS делать то для чего они совсем не предназначены.

Ссылка на комментарий
Поделиться на другие сайты

  • 3 недели спустя...

кому интересно- решилось вот так

set oie=wscript.createobject("internetexplorer.application","ie_")

oie.left=50

oie.top=100

oie.height=300

oie.width=450

oie.menubar=0

oie.statusbar=0

oie.toolbar=0

oie.navigate getpath() & "postprosm.htm"

oie.visible=1

set wsh=wscript.createobject("wscript.shell")

wsh.AppActivate("postprosm.htm")

do while(oie.busy)

wscript.sleep 200

loop

ready=false

do while(not ready)

wscript.sleep 500

loop

if name="" then

wscript.echo text1

else

'wscript.echo text2 & result

if fso.fileexists(file4) then

set text=fso.opentextfile(file4)

nom=text.readline

'wscript.echo txt

end if

lenname=len(name)

lenname1=InStrRev(name,"\")

lenname=lenname-lenname1

nameout= toname &"__"& nom &"__"& Right(name,lenname)

set fso=createobject("scripting.filesystemobject")

set ofile=fso.Getfile(name)

' wscript.echo " копирую файл" & nameout

if aptname=99 then

'читаем пока не конец файла и копир файл поп папкам

if fso.fileexists(file5) then

set nomtext=fso.opentextfile(file5)

do while not (nomtext.atendofstream)

nomapt=nomtext.readline

ofile.Copy "\\192.168.0.1\intel\post\apt\" & nomapt & "\" & nameout, true

loop

end if

else

ofile.Copy "\\192.168.0.1\intel\post\apt\" & aptname & "\" & nameout, true

res=wshshell.popup("гружу файл ждите..",_

1,_

"wsh popup sample",_

vbOKcancel+vbinformation)

end if

end if

wscript.sleep 100

sub ie_onquit()

dim ofile ,paramfile

name=oie.document.frml.paramfile.value

toname=oie.document.frml.paramfile1.value

aptname=oie.document.frml.param2.value

ready=true

end sub

function getpath()

dim path

path=wscript.scriptfullname

getpath=left(path,instrrev(path,"\"))

end function

else

msgbox "сервер не доступен!"

end if

wscript.quit

<html>

<head>

<title> форма для ввода файлов</title>

</head>

<body>

<script language="vbscript">

<!-

dim ready

public theform

sub button1_onclick

' если ок - сообщ сценарию путем уст флага

ready=1

end sub

sub windows_onload()

'иниц-я формы

set theform=document.frml

theform.fname.value=""

ready=0 'не завершена операция

end sub

форма на html

public function checkval()

'проверка ок

checkval=ready

end function

'->

</script>

<form name="frml"

id="frml" action="save.asp" metod="get"

enctype="multipart/form-data">

прикрепить файл

<br>

<input type="file" id="paramfile" name="paramfile" size="40"> <br>

кому: введите имя <br>

<input type="text" id="paramfile1" name="paramfile1" size="40"> <br>

<input type="reset" value="reset">

<br>

_______++++++

</form>

</body>

</html>

Ссылка на комментарий
Поделиться на другие сайты

Присоединяйтесь к обсуждению

Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.

Гость
Ответить в этой теме...

×   Вставлено с форматированием.   Вставить как обычный текст

  Разрешено использовать не более 75 эмодзи.

×   Ваша ссылка была автоматически встроена.   Отображать как обычную ссылку

×   Ваш предыдущий контент был восстановлен.   Очистить редактор

×   Вы не можете вставлять изображения напрямую. Загружайте или вставляйте изображения по ссылке.

  • Последние посетители   0 пользователей онлайн

    • Ни одного зарегистрированного пользователя не просматривает данную страницу
×
×
  • Создать...