VERIFICAR SE PASTA EXISTE
Na seguinte função :
Public Function DirExists(TheDir)
Dim Test As Integer
On Error Resume Next
If Right(TheDir, 1) "/" Then TheDir = TheDir & "/"
Test = Len(dir$(TheDir))
If Err Or Test = 0 Then DirExists = False: Exit Function
DirExists = True
End Function
Está função tem um problema: só verifica se a pasta existe se existir um arquivo qualquer dentro dela. Alguém poderia corrigi-la ou indicar outra que verificasse a existência de uma pasta mesmo estando vazia.
Obrigado.
Public Function DirExists(TheDir)
Dim Test As Integer
On Error Resume Next
If Right(TheDir, 1) "/" Then TheDir = TheDir & "/"
Test = Len(dir$(TheDir))
If Err Or Test = 0 Then DirExists = False: Exit Function
DirExists = True
End Function
Está função tem um problema: só verifica se a pasta existe se existir um arquivo qualquer dentro dela. Alguém poderia corrigi-la ou indicar outra que verificasse a existência de uma pasta mesmo estando vazia.
Obrigado.
If Dir(C: este, vbDirectory) = "" Then FileSystem.MkDir "c: este"
Tópico encerrado , respostas não são mais permitidas