“VBA Utwórz folder, jeśli nie istnieje” Kod odpowiedzi

VBA Utwórz folder, jeśli nie istnieje

'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 Utwórz katalog, jeśli nie istnieje

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

Odpowiedzi podobne do “VBA Utwórz folder, jeśli nie istnieje”

Pytania podobne do “VBA Utwórz folder, jeśli nie istnieje”

Więcej pokrewnych odpowiedzi na “VBA Utwórz folder, jeśli nie istnieje” w VBA

Przeglądaj popularne odpowiedzi na kod według języka

Przeglądaj inne języki kodu

Shell/Bash
C#
C++
C
CSS
HTML
Java
JavaScript
Objective-C
PHP
Python
Sql
Swift
Ruby
TypeScript
Go
Kotlin
Assembly
R
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