Тема: HTA: Копирование файлов по директориям
Задача следующая, необходимо создать HTA приложение при помощи которого можно было:
1) Выбрать несколько файлов или указать папку с файлами
2) Все данные файлы отобразились бы на форме HTA с левой стороны.
3) А с правой бы стороны были бы условные названия (которые брались из файла), а под этими названиями скрывался бы путь копирования.
4) Кнопочка копирования.
И получается слева выбираем несколько файлов, а справа указываем количество мест куда их нужно скопировать.
Для выбора нескольких файлов можно использовать Set Files = FSO.GetFolder(FolderPath).Files
Для выбора необходимых файлов можно использовать CheckBox
Вот начал писать форму. На этой форме есть кнопка при нажатии на которой запускается окно и в этом окне нужно что б можно было выбрать необходимые файлы:
Файл называется Start.hta
<html>
<head>
<title>Start</title>
<HTA:APPLICATION
APPLICATIONNAME="Start"
ID="Start"
VERSION="1.0"/>
</head>
<script language="VBScript">
Sub Window_OnLoad
End Sub
Function Fill_Dict_CheckBox()
dim objDic
Set objDic = CreateObject("Scripting.Dictionary")
objDic.Add "Header", "Отправка файлов"
objDic.Add "ControlHeader", "Выберите файлы для копирования"
objDic.Add "Description", "Подробное описание, того что требуется от пользователя в этом окне"
objDic.Add "ControlValues", Array("1й Файл", "2й Файл", "3й Файл", "4й Файл")
objDic.Add "BtnFinish", True
Set Fill_Dict_CheckBox = objDic
Set objDic = Nothing
End Function
Sub OnClickButtonbtnChB
varReturn = window.ShowModalDialog("checkbox.hta", Fill_Dict_CheckBox, "dialogHeight:400px;dialogWidth:400px")
MsgBox varReturn
End Sub
</script>
<body>
<input type="button" name="btnRB" id="btnChB" value="Отправка файлов" onclick="OnClickButtonbtnChB">
</body>
</html>Второй запускаемый файл CheckBox.hta
<html>
<head>
<title>911</title>
<HTA:APPLICATION
APPLICATIONNAME="CHECKBOX"
ID="CHB"
VERSION="1.0"
SYSMENU="no"
MAXIMIZEBUTTON="no"
MINIMIZEBUTTON="no"
SCROLL="no"
CONTEXTMENU="no"
SELECTION="no"/>
</head>
<script language="VBScript">
Dim objDict
Set objDict = window.dialogArguments
Sub Window_OnLoad
Header.InnerHTML = "<B>" & objDict.Item("Header") & "</B>"
ControlHeader.InnerHTML = "<BR>" & objDict.Item("ControlHeader")
Description.InnerHTML = "<BR> <font size=2>" & objDict.Item("Description") & "</font>"
If objDict.Item("BtnFinish") Then
ButtonFinish.InnerHTML = "<input type=""button"" name=""btnFinish"" id=""btnFinish"" value=""Отправить"" onclick=""OnClickButtonbtnFinish"">"
Else
ButtonFinish.InnerHTML = ""
End If
strHTML = "<BR>"
For i = 0 To UBound(objDict.Item("ControlValues"))
strHTML = strHTML & "<input type=""checkbox"" name=""checkbox" & CStr(i) &""" id=""checkbox" & CStr(i) & """>" & objDict.Item("ControlValues")(i) & "<BR>" & vbCr
Next
ControlValues.InnerHTML = strHTML
window.returnValue = "Value=;Button=;"
End Sub
Function GetCheckBoxValues()
GetCheckBoxValues = ""
For i = 0 To UBound(objDict.Item("ControlValues"))
If window.document.getElementById("checkbox" & CStr(i)).Checked Then
GetCheckBoxValues = GetCheckBoxValues & "1,"
Else
GetCheckBoxValues = GetCheckBoxValues & "0,"
End If
Next
GetCheckBoxValues = Left(GetCheckBoxValues,Len(GetCheckBoxValues)-1)
End Function
Sub OnClickButtonbtnFinish()
window.returnValue = "Value=" & GetCheckBoxValues() & ";Button=Отправлено;"
window.close
End Sub
</script>
<body>
<span id=Header></span>
<span id=ControlHeader></span>
<span id=ControlValues></span>
<span id=Description></span>
<BR>
<span id=ButtonFinish></span>
</body>
</html>В HTA не силен только начинаю осваивать буду признателен за любую помощь. Читал про многие функции которые есть d JScript или VBScript, но как подружить все это с hta-формой пока не до конца понимаю.
На самом деле потом буду еще многое допиливать, но это сейчас основное.
