“VBA Crear carpeta si no existe” Código de respuesta

VBA Crear carpeta si no existe

'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 Crear directorio si no existe

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

Respuestas similares a “VBA Crear carpeta si no existe”

Preguntas similares a “VBA Crear carpeta si no existe”

Más respuestas relacionadas con “VBA Crear carpeta si no existe” en VBA

Explore las respuestas de código populares por idioma

Explorar otros lenguajes de código