“VBA erstellen Verzeichnis, wenn nicht existiert” Code-Antworten

VBA -Ordner erstellen, wenn nicht existiert

'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 erstellen Verzeichnis, wenn nicht existiert

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

Ähnliche Antworten wie “VBA erstellen Verzeichnis, wenn nicht existiert”

Fragen ähnlich wie “VBA erstellen Verzeichnis, wenn nicht existiert”

Durchsuchen Sie beliebte Code-Antworten nach Sprache

Durchsuchen Sie andere Codesprachen