preciso de um codigo para criar um diretorio inexistente para salvar dados dentro dele...

ou seja, se o diretorio aonde desejo gravar os dados nao existir, um rotina cria ele antes de salvar os dados desejados.

 

valeu..

mkdir...

Primária, mas funciona.

 

Public Function MakePath(Caminho As String) As Boolean
On Error GoTo hell:
Dim sPastas() As String
Dim sPasta    As String
Dim n         As Variant
sPastas = Split(Caminho, "")
For Each n In sPastas
    If Len(sPasta) = 0 Then
        sPasta = n
    Else
        sPasta = sPasta & "" & Replace$(n, "", Empty)
    End If
    If Len(Dir$(sPasta)) = 0 Then
        MkDir sPasta
    End If
Next
MakePath = True
GoTo sai:
hell:
MsgBox Err.Description
Err.Clear
sai:
sPasta = Empty
Erase sPastas
n = Empty
End Function

Exemplo de uso:

 

eh soh vc usar o MkDir.....

 

MkDir = Text1.text ` txtbox sera o diretorio que ele ira criar

  'Verifica se a pasta do novo projeto já existe
  If Not fntFileExist(txtPastaOrigem.Text & "" & txtPastaNovoProjeto.Text & "", True) Then
    MkDir txtPastaOrigem.Text & "" & txtPastaNovoProjeto.Text & ""
  End If

Public Function fntFileExist(ByVal PathName As String, Optional Directory As Boolean) As Boolean
  If PathName <> "" Then
    If IsMissing(Directory) Or Directory = False Then
      fntFileExist = (Dir$(PathName) <> "")
    Else
      fntFileExist = (Dir$(PathName, vbDirectory) <> "")
    End If
  End If
End Function