|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Função para Unir um Diretório a um Subdiretório
|
 |
|
|
|
Postada em 8/10/2000 por Webmaster
webmaster@vbweb.com.br
'Coloque esta função num módulo ou mesmo no form:
Public Function Junta_Dirs(ByVal sDir1 As String, _
ByVal sDir1 As String)
If Right$(Dir1, 1) = "\" Then
If Left$(Dir2, 1) = "\" Then
Junta_Dirs = Left$(Dir1, Len(Dir1) - 1) & Dir2
Else
Junta_Dirs = Dir1 & Dir2
End If
Else
If Left$(Dir2, 1) = "\" Then
Junta_Dirs = Dir1 & Dir2
Else
Junta_Dirs = Dir1 & "\" & Dir2
End If
End If
If Right$(Junta_Dirs, 1) <> "\" Then
Junta_Dirs = Junta_Dirs & "\"
End If
End Function
'P/ chamar:
Dim Dir As String
Dir = Junta_Dirs(App.Path,"\BMPs\")&"Desenho.BMP"
'OU:
Dir = Junta_Dirs(App.Path, "\BMPs")&"Desenho.BMP"
'OU:
Dir = Junta_Dirs(App.Path, "BMPs\")&"Desenho.BMP"
'OU:
Dir = Junta_Dirs(App.Path, "BMPs")&"Desenho.BMP"
'TODAS as anteriores irão funcionar. Só NÃO use assim:
Dir = Junta_Dirs(App.Path, "BMPs")&"\Desenho.BMP"
'Pois não irá funcionar.
|
|
|
|
|
