|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Arquivos/Diretórios)
|
|
 |
Título da Dica: Criando múltiplos níveis de diretórios
|
 |
|
|
|
Postada em 8/9/2000 por Webmaster
webmaster@vbweb.com.br
Programas de instalação ou outras aplicações podem solicitar ao usuário para que informe onde deseja instalar arquivos ou efetuar alguma operação. Se o diretório não existir, será criado. Mas, o usuário poderá informar vários subníveis de diretórios inexistentes que devem ser criados. A rotina abaixo cria qualquer diretório, em todos os níveis. Basta informar o drive (como C:) e o caminho (como \MYAPP\MYDIR\SUBDIR) a ser criado (se não existir). Podem ser criados diretórios de nomes longos em VB4 32 bits, mas, em 16 bits (inclusive VB3), os nomes serão truncados para a convenção 8.3. Você poderá adicionar seu próprio código de manipulação de erros, conforme sua necessidade.
Abaixo temos um exemplo simples da criação de vários níveis de diretórios:
Sub CreateLongDir(sDrive as String, sDir as String)
Dim sBuild As String
While Instr(2, sDir, "\") > 1
sBuild = sBuild & Left(sDir, Instr(2, sDir, "\") - 1)
sDir = Mid$(sDir, InStr (2, sDir, "\"))
If Dir$(sDrive & Sbuild, 16) = "" Then
MkDir sDrive & sBuild
End If
Wend
End Sub
Sub Test()
Call CreateLongDir ("C:\", "Test\MyApp\MyDir\Long " & _
"Directory Name\")
End Sub
|
|
|
|
|
