[VBA] Create Folder MkDir Solved

Question

Hello, how are you doing?

I'm creating a folder using the MkDir method if it doesn't exist. The minor problem is... that it doesn't get created ^^

Here's the portion of the code:

SourcePath = Left(Workbooks("ExtractionTest.xls").FullName, InStr(Workbooks("ExtractionTest.xls").FullName, "ExtractionTest.xls") - 1) Year = 2006 If Dir(SourcePath & Year & "\Données_Découpages", 16) = "" Then MkDir (SourcePath & Year & "\Données_Découpages")

I'm getting something like this with SourcePath: C\Documents....\..\..\ and everything should follow, but it doesn't.

The thing is that when I remove Year, it works perfectly. I've tried both Year as Integer and String, but that's not it.

It's giving me a runtime error 76, path not found on:

MkDir (SourcePath & Year & "\Données_Découpages")

Thanks in advance.

Bidouilleu_R · Accepted Answer

your code is correct except for this
you don't check if the 'Year' folder already exists...

you are not allowed to create a subfolder for a nonexistent folder.
it must be done in two steps: folder then subfolder

Sub test() CheminSource = Left(Workbooks("ExtractionTest.xls").FullName, InStr(Workbooks("ExtractionTest.xls").FullName, "ExtractionTest.xls") - 1) Annee = 2006 If Dir(CheminSource & Annee, 16) = "" Then MkDir (CheminSource & Annee) End If If Dir(CheminSource & Annee & "\Données_Découpages", 16) = "" Then MkDir (CheminSource & Annee & "\" & "Données_Découpages") End If End Sub

Leahkim · Answer

do you have a log of the exact address he is trying to access? -- If you don't succeed on the first try, call it version 1.0

Palteza · Answer

Hi Leahkim and thank you

Log of the address, that is, the place where I want to create my directory? In fact, it depends on the location of the ExtractionTest file (the purpose of this portion of code, actually).

In my example, I say that I retrieve, with SourcePath, something like C:\Documents and Settings\me\Desktop\..\...\ because ExtractionTest is located on the desktop (in a folder), but it could be anywhere else. In any case, I always retrieve the path of ExtractionTest with a \ at the end.

Palteza · Answer

Haut

Palteza · Answer

I tested Year as a String with "2006" but nothing happened.

And yes, the 2006 comes from a variable, loaded via inputbox.
The \ is not to be added, CheminSource (thanks to the Left and Instr functions) always retrieves the file path with a \ at the end, so it would create a duplicate. I still tried to add it but no luck

It comes from somewhere else.

Palteza · Answer

Yes, that was the issue, I thought we could create directories and subdirectories at once.  Thank you very much Bidouilleu and pijaku :)

[VBA] Create Folder MkDir

6 answers

How to fix my computer graphics

Sony dcr trv 345e bug without error message.

Victim of a bank hacking

Bluetooth and connection no longer work.

Horizontal lines on samsung q90r tv

Bios update for ms-b9241 motherboard

Asus gamer freeze on genshin and roblox

Virtual memory on the honor 200 smart...

Suspected virus

List numbering style