USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Direcionar arquivos para um diretório pré-definido
Carlos R. Faria
não registrado
ENUNCIADA !
Postada em 05/04/2008 21:32 hs   

Criei vários módulos, vários botões sendo um Limpa os TextBox pré-definidos, um Abre arquivos com extenção TXT, um Enviar o conteúdo dos TexBox para um diretório em um arquivo pré-definido e outro Salvar o conteúdo dos TextBox.

Usei vários módulos para compor todos esses comandos, porém em um Form, possui mais de 100 Texbox e 12 Botões atuando independentes que por sinal foi um transtorno para montar.  Para deixar mais organizado, estou separando os arquivos salvos em diretórios pré-definicos, porém quando salvo os arquivos, tenho que trilhar entre os diretórios.

Então gostaria de saber como faço para, ao acionar o Salvar, ele abra no diretório correto onde eu só colocaria o nome do arquivo e salvaria. Esse procedimento se repetiria no abrir aquivos, que quando acionado o Abrir, já abriria no diretório pré-definido.

   
Ama
Pontos: 2843
UBERLÂNDIA
MG - BRASIL
ENUNCIADA !
Postada em 07/04/2008 13:00 hs         
Jovem um módulo so recebendo o caminho completo do arquivo salva o conteudo dos 100 botoes.
Eu costumo ter um módulo só com opçoes 1-salvando;2-modificando;3-deletando etc...
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 07/04/2008 13:15 hs            
você está utilizando o common dialog control?
 
   
Carlos R. Faria
não registrado
ENUNCIADA !
Postada em 07/04/2008 19:55 hs   
Estou usando o common dialog control
   
Treze
Pontos: 2843 Pontos: 2843
SÃO VICENTE
SP - BRASIL
ENUNCIADA !
Postada em 08/04/2008 09:53 hs            
um exemplo básico pra isso, cmd1 é nome do CommonDialog
 
Dim Prop As String
On Error Resume Next
' aqui você define o titulo do seu common dialog control
cmd1.DialogTitle = "Definir Caminho das Fotos"
' InitDir = o diretório que será aberto ao se abrir o common dialog control
cmd1.InitDir = "C:" ' aqui você define a pasta ex: C:Documents and SettingsMARCELO13
' FileName determina que a busca seja por todos o arquivos JPG e Bmp
cmd1.FileName = "*.jpg;*.gif"
' Filter = filtra somente arquivos JPG e BMP
 Prop = "Arqs. MDB(*.jpg;*.wmf;*.bmp;*.gif;*.emf)
|*.jpg;*.wmf;*.bmp;*.gif;*.emf|Todos " & "Arqs. (*.*)|*.*"
 cmd1.Filter = Prop
 cmd1.FilterIndex = 1 ' indica a primeira opção
' e agora sim abrir o common dialog
cmd1.ShowOpen
' ao se clicar em OK o caminho será salvo no textbox
Text1.Text = cmd1.FileName
   
Carlos R. Faria
não registrado
ENUNCIADA !
Postada em 08/04/2008 18:50 hs   
Muito bom!!! desse código foi útil para mim (cmd1.InitDir = c:)
Obrigado por me ajudar Sr. Marcelo.Emoções
   
Página(s): 1/2      PRÓXIMA »


Seu Nome:

Seu eMail:

ALTERAR PARA MODO HTML
Mensagem:

[:)] = 
[:P] = 
[:(] = 
[;)] = 

HTML DESLIGADO

     
 VOLTAR

  



CyberWEB Network Ltda.    © Copyright 2000-2026   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página