<![CDATA[Серый форум — HTA: Копирование файлов по директориям]]> https://forum.script-coding.com/viewtopic.php?id=8803 Tue, 22 Oct 2013 19:44:35 +0000 PunBB <![CDATA[HTA: Копирование файлов по директориям]]> https://forum.script-coding.com/viewtopic.php?pid=76352#p76352 Задача следующая, необходимо создать 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> &nbsp; 
<span id=ControlValues></span>
<span id=Description></span>
<BR>

<span id=ButtonFinish></span>
</body>
</html>

В HTA не силен только начинаю осваивать буду признателен за любую помощь. Читал про многие функции которые есть d JScript или VBScript, но как подружить все это с hta-формой пока не до конца понимаю.

На самом деле потом буду еще многое допиливать, но это сейчас основное.

]]> Tue, 22 Oct 2013 19:44:35 +0000 https://forum.script-coding.com/viewtopic.php?pid=76352#p76352