none
HTA List forder e apresentar em BasicTextArea RRS feed

  • Pergunta

  • Ba galera.

    Como posso resolver esta situação tche, criei um HTA que nele tem um BasicTextArea, e na Sub Window_OnLoad(), coloquei um script que lista o conteúdo do diretorio temp, porem quanto executo o HTA, é apresentado somente o ultimo arquivo listado, o que eu deveria fazer para que o resultado apos a execução seja apresentar todo o conteúdo.

    codigo.

    Obrigado tche.

    <SCRIPT LANGUAGE="VBScript">
    
    Sub Window_OnLoad()
      
    	strComputer = "." 
    
    	Set objWMIService = GetObject("winmgmts:" _ 
        		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
     
    	Set colFileList = objWMIService.ExecQuery _ 
        		("ASSOCIATORS OF {Win32_Directory.Name='C:\temp'} Where " _ 
            	& "ResultClass = CIM_DataFile") 
     
    	For Each objFile In colFileList 
        		BasicTextArea.Value = objFile.Name
    	Next 
    
    End Sub
    
    </script>
    
    <textarea name="BasicTextArea" rows="10" cols="75"></textarea>

    terça-feira, 22 de outubro de 2013 16:57

Respostas

Todas as Respostas

  • Marcelo,

    A cada volta do loop For Each você está substituindo o valor da TextArea pelo valor atual do loop, por isso ele fica com o valor da última volta do loop.

    Você vai ter que acumular os valores em uma váriavel e por fim passar o valor para a textarea.

    Tente assim:

    For Each objFile In colFileList 
    	strFiles=strFiles & chr(10) & objFile.Name
    Next 
    
    BasicTextArea.Value = strFiles


    Fábio de Paula Junior

    quarta-feira, 23 de outubro de 2013 12:23
    Moderador
  • Show Fabio.

    Tem como fazer este resultado só apresentar o nome do arquivo, sem o caminho e a extenção tche.

    obrigado.

    quinta-feira, 24 de outubro de 2013 13:18
  • Marcelo,

    Veja a lista de atributos da classe que você está usando, você está usando o Name, experimente outros.

    CIM_DataFile class

    http://msdn.microsoft.com/en-us/library/aa387236(v=vs.85).aspx


    Fábio de Paula Junior


    quinta-feira, 24 de outubro de 2013 15:17
    Moderador
  • Ba Fabião show, usando a FileName vem o resultado porem acabo de ser informado que eu terei que usar um OptionChooser, o problema dele é que ele é um select e o que é apresentado na janela é escrito dentro dele, vc tem ideia tche ou algum amigo do forum para alimentar este OptionChooser com o resultado levantado pelo objfile.filename ?

    obrigado tche.

    quinta-feira, 24 de outubro de 2013 18:23
  • Marcelo,

    Tenta isso

    strComputer = "." 
    
    Set objWMIService = GetObject("winmgmts:" _ 
    		& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    
    Set colFileList = objWMIService.ExecQuery _ 
    		("ASSOCIATORS OF {Win32_Directory.Name='C:\temp'} Where " _ 
    		& "ResultClass = CIM_DataFile") 
    
    i=1
    For Each objFile In colFileList
    	set Opt = document.createElement("Option")
    	Opt.value = i
    	Opt.text = objFile.Name
    	OptionChooser.Add Opt
    
    	i=i+1
    Next 

    No caso OptionChooser é o nome do OptionChooser que já foi criado anteriormente.

    Não testei.

    Ref.:

    Drop Down selection box in HTA

    http://social.technet.microsoft.com/Forums/scriptcenter/en-US/848feada-d9ee-4c04-869c-7fa62cb025b6/drop-down-selection-box-in-hta?forum=ITCG


    Fábio de Paula Junior

    • Marcado como Resposta Marcelo TI sexta-feira, 25 de outubro de 2013 19:17
    sexta-feira, 25 de outubro de 2013 12:22
    Moderador
  • Ba fabião show é isto ai, valeu cara
    sexta-feira, 25 de outubro de 2013 19:17