Convidado 10/9/2011, 14:41
Fiz algo aqui...
1 - Apliquei botões de navegação no form
2 - Exclui a caixa texto onde swe digita a pasta...
3 - A pasta agora é criada baseada na Caixa texto txtNome (que é o nome do cliente)
4 - Ao clicar em criar pasta, ja a cria com o nome do cliente selecionado no registro
5 - uma pequena função que é chamada nos botões do form
- Código:
Private Sub VerificaPasta()
Dim StrCamPasta As String
StrCamPasta = Me.Location.Caption & Me.txtNome
If FolderExists(StrCamPasta) = True Then
Me.PhotoBrowser.Navigate StrCamPasta
Else
Me.PhotoBrowser.Navigate "C:\AtalhosDeImagens\"
Exit Sub
End If
End Sub
Esta função verifica se a pasta existe, se sim envia o caminho completo para a nevegação do WebBrowser.. que é o caminho principal mais a txtNome que é justamente o nome da pasta do cliente, portanto ao navegar é aberta a pasta do cliente no Objeto browser...
Pode aplicá-la tambem ao abrir do form, que se aberto em um cliente vai para a pasta do cliente, se em novo, vai para a pasta principal
http://dl.dropbox.com/u/26441349/Gerson_10_09_11.rar
Cumprimentos