FILELIST
Aos programadores deste forum, gostaria de uma dica, atraves do componente filelist eu listo arquivos de uma determinada pasta, eu preciso selecionar um determinado arquivo desta lista, edita-lo, fazer algumas alteracoes e depois salva-lo, é possÃvel ?, alguém tem o código, agradeço qualquer ajuda.
Silvano
Silvano
bem... usar o common dialog não seria mais simples?
Este componente trabalharia em conjunto com o Filelist ?, ou só usaria o commondialog.
o commondialog abre uma tela igual ao ABRIR do word, excel, coreldraw, etc... o único problema é que por padrão pode mudar a pasta... qual o formato do arquivo que vc quer abrir para editar?
serão arquivos txt e htm.
Obrigado
Silvano
Obrigado
Silvano
Simples:
O File1 é o seu FileListBox.
Seleccione o arquivo na lista e clique no command1.
O seu arquivo será aberto no notepad. Pode editar e gravar!
Private Sub Command1_Click()
Shell "notepad " & File1.FileName, vbNormalFocus
End SubO File1 é o seu FileListBox.
Seleccione o arquivo na lista e clique no command1.
O seu arquivo será aberto no notepad. Pode editar e gravar!
Obrigado pelas dicas, eu achei a solução no meu caso, usando o seguinte procedimento:
criei um richt text box e com a seguinte linha de comando edito o arquivo da lista, faço as alteraçoes e depois o salvo.
*** Aqui o carrego o arquivo que selecionei no file1
Private Sub File1_Click()
Me.rtbArquivo.LoadFile Me.File1.FileName
End Sub
*** Aqui salvo o arquivo com as alterações
Private Sub Command1_Click()
Dim bConverte_Proc_Conferencia As Boolean
Dim sValor As String
Me.rtbArquivo.SaveFile Me.File1.FileName, rtfText
Exit Sub
End Sub
Obrigado e espero ter acrescentado mais uma dica
Silvano
criei um richt text box e com a seguinte linha de comando edito o arquivo da lista, faço as alteraçoes e depois o salvo.
*** Aqui o carrego o arquivo que selecionei no file1
Private Sub File1_Click()
Me.rtbArquivo.LoadFile Me.File1.FileName
End Sub
*** Aqui salvo o arquivo com as alterações
Private Sub Command1_Click()
Dim bConverte_Proc_Conferencia As Boolean
Dim sValor As String
Me.rtbArquivo.SaveFile Me.File1.FileName, rtfText
Exit Sub
End Sub
Obrigado e espero ter acrescentado mais uma dica
Silvano
Tópico encerrado , respostas não são mais permitidas