VERIFICAR SE EXISTE PASTA E CRIAR PELO VB

FUTURA 20/01/2011 12:00:10
#362843
pessoal, estou automatizando meu módulo de nfe 2.0 - quero deixar os arquivos xml separados por dia, para posterior envio para a contabilidade. Qual comando no vb6 para verificar se uma pasta j existe, e caso não, cria-la ??
JONATHANSTECKER 20/01/2011 12:09:24
#362844
JONATHANSTECKER 20/01/2011 12:15:31
#362845 
Private Sub Form_Load()

  If ArquivoExiste([Ô]C:\Teste[Ô], True) Then
    MsgBox [Ô]Esta pasta já existe![Ô]
  Else
    MkDir [Ô]c:\Teste[Ô]
  End If

End Sub

Public Function ArquivoExiste(ByVal Caminho As String, Optional ByVal SomenteDiretorio As Boolean = False) As Boolean
    On Error Resume Next
    If SomenteDiretorio Then
        ArquivoExiste = GetAttr(Mid(Caminho, 1, InStrRev(Caminho, [Ô][Ô]))) And vbDirectory
    Else
        ArquivoExiste = GetAttr(Caminho)
    End If
    On Error GoTo 0
End Function
Tópico encerrado , respostas não são mais permitidas
Voltar