Boa tarde
Precisava de uma ajuda neste exemplo.
No form tem a minha duvida..
Obrigado
Precisava de uma ajuda neste exemplo.
No form tem a minha duvida..
Obrigado
Dim strCaminho As String, strPastaInicial As String, strBase As Variant
strPastaInicial = CurrentProject.Path & "\*.*\"
strCaminho = Buscar(Me.hWnd, "Inserir Base", strPastaInicial, "Arquivos (*.*)" & vbNullChar & "*.*;")
strBase = Split(strCaminho, "\")
Me.Base = strBase(UBound(strBase))
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |
Meu novo site: www.vcssistemas.com.br Clique aqui e veja um vídeo que explica como fazer pesquisas no forum. DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo: 1 - faça uma cópia do aplicativo 2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar 3 - use o Compactar/Reparar 4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem) Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário. Positive as mensagens que achar útil, no canto superior direito delas. |