“VBA Criar pasta, se não existir” Respostas de código

VBA Criar pasta, se não existir

'requires reference to Microsoft Scripting Runtime
Function MkDir(ByVal strDir As String, ByVal strPath As String)
  	Dim fso As New FileSystemObject
  	Dim path As String
	path = strPath & strDir
	If Not fso.FolderExists(path) Then
	    fso.CreateFolder path
	End If
End Function
VasteMonde

VBA Criar diretório, se não existir

'Don't requires refernce of Microsoft Scripting Runtime
Path = "D:\FolderName\"
If Len(Dir(Path, vbDirectory)) = 0 Then
   MkDir Location
End If
Magnificent Macaque

Respostas semelhantes a “VBA Criar pasta, se não existir”

Perguntas semelhantes a “VBA Criar pasta, se não existir”

Procure respostas de código populares por idioma

Procurar outros idiomas de código