Выбор одного файла -> выбор списка

[ExtraRight]

Доброе время суток

Имеется CATVba, в нём закодирован интерфейс

Spoiler :

Код: Выделить всё

Create the command line to launch the MyBrowse JAR file to select a JT file
 '============================================================================
  Dim JRE_INSTALL
  JRE_INSTALL = regValue & "\jre\bin\java.exe"
  JRE_INSTALL = Chr(34) & JRE_INSTALL & Chr(34)

  Dim Browse_JAR
  Browse_JAR = regValue & "\lib\MyBrowse.jar"
  Browse_JAR = Chr(34) & Browse_JAR & Chr(34)

  Dim browse_cmd, browse_cmd1
  browse_cmd = JRE_INSTALL & " -jar " & Browse_JAR
  Dim dlgTitle
  dlgTitle = "Select JT File to Insert"
  dlgTitle = Chr(34) & dlgTitle & Chr(34)

 '===================================================================
 'Invoke the MyBrowse jar file to launch the JT File Selection dialog
 '===================================================================
  Dim tdiff
  tdiff = Len(sCurDir) - InStr(sCurDir, ":")
  'If the current directory is a root directory, then we pass it as an argument without quotes, else with quotes
  If tdiff = 1 Then
  browse_cmd1 = browse_cmd & " 0 0 false false " & dlgTitle & " " & sCurDir & " " & sCurDir
  Else
  browse_cmd1 = browse_cmd & " 0 0 false false " & dlgTitle & " " & sCurDir1 & " " & sCurDir1
  End If

  Dim x
  x = sh2.Run(browse_cmd1, 0, True)
 
 '=======================================
 'Determine the JT Filename to be opened
 '=======================================
  Dim JT_filename, sFile, sFile1, oFile, sText
  sFile = sCurDir & "\tempFile.txt"
  sFile1 = Chr(34) & sFile & Chr(34)

  If oFSO.FileExists(sFile) Then
   Set oFile = oFSO.OpenTextFile(sFile, 1, False)
   sText = oFile.ReadLine
   If Trim(sText) <> "" Then
     If InStr(sText, " ") = 0 Then
       JT_filename = sText
     Else
       JT_filename = Chr(34) & sText & Chr(34)
     End If
   Else
     MsgBox "The JT file selected could not be found.", vbCritical
     Exit Sub
   End If
   oFile.Close
   'Delete the tempFile.txt which was created by the JAR file
   '=========================================================
   oFSO.DeleteFile sFile, True
  Else
     MsgBox "The JT file selected could not be located.", vbCritical
     Exit Sub
  End If


Задача: сделать так, чтобы можно было выбрать не один файл, а список файлов или папку, в которой находится много файлов

[Sten]

А дальше чего? Логика скрипта работает с одним файлом, от того что ты ткнёшь в кучу файлов, ничего не изменится, даже если диалог тебе даст это сделать.

[ExtraRight]

Прошу прощения за лишнее беспокойство - проблему решили вводом окошка для указания пути папки, где лежит куча файлов и затем зацикливанием действия над ними

[timkaam]

Прошу прощения за лишнее беспокойство - проблему решили вводом окошка для указания пути папки, где лежит куча файлов и затем зацикливанием действия над ними

а может кто подскажет как сделать так, чтобы выскакивало окно виндовс и выбор папки через проводник, а не прописыванием пути в окошке?

[Artem]

Код: Выделить всё

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.BrowseForFolder(0, "test", 0)
MsgBox objFolder.self.Path


[timkaam]

Код: Выделить всё

Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.BrowseForFolder(0, "test", 0)
MsgBox objFolder.self.Path


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

[Wireless_Fidelity]

Неа. Можно поковыряться с WinApi, но не уверен, что оно того стоит.