“VBA Créer un répertoire s'il n'existe pas” Réponses codées

VBA Créer un dossier s'il n'existe pas

'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 Créer un répertoire s'il n'existe pas

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

Magnificent Macaque

Réponses similaires à “VBA Créer un répertoire s'il n'existe pas”

VBA Créer un dossier s'il n'existe pas

Questions similaires à “VBA Créer un répertoire s'il n'existe pas”

Plus de réponses similaires à “VBA Créer un répertoire s'il n'existe pas” dans VBA

Parcourir les réponses de code populaires par langue

Parcourir d'autres langages de code

Shell/Bash

C++

CSS

HTML

Java

JavaScript

Objective-C

PHP

Python

Sql

Swift

Ruby

TypeScript

Kotlin

Assembly

VBA

Scala

Rust

Dart

Elixir

Clojure

Haskell

Matlab

Erlang

Cobol

Fortran

Scheme

Perl

Groovy

Lua

Julia

Delphi

Abap

Lisp

Prolog

Pascal

ActionScript

Basic

Solidity

PowerShell

GDScript

Excel