nikol Опубликовано 5 февраля, 2009 Жалоба Поделиться Опубликовано 5 февраля, 2009 помогите кто-нибудь решить задачку скопировать выбранный файл в указанный <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,спасибо заранее и пришлите ссылочку, где почитать подробнее Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Ф@РТОВЫЙ Опубликовано 24 февраля, 2009 Жалоба Поделиться Опубликовано 24 февраля, 2009 Есть специальные контрол в IE, но работает он только если уровень безопасности установлен в самый низкий, а в других браузерах вообще такой возможности нет. Так что лучше не браться средствами HTML+JS делать то для чего они совсем не предназначены. Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
nikol Опубликовано 12 марта, 2009 Автор Жалоба Поделиться Опубликовано 12 марта, 2009 кому интересно- решилось вот так 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> Цитата Ссылка на комментарий Поделиться на другие сайты Поделиться
Рекомендуемые сообщения
Присоединяйтесь к обсуждению
Вы можете написать сейчас и зарегистрироваться позже. Если у вас есть аккаунт, авторизуйтесь, чтобы опубликовать от имени своего аккаунта.