VBA create folder help

[Pinaceous]

Hi All,

I'm trying to create a folder from an excel in using the following code:

Sub Creaolders()

  Dim sPath As String, sMain As String, sFolder As String
  Dim i As Long
 
  sPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
  sMain = sPath & "\" & Sheets(1).Range("A1").Value
    
  If Dir(sMain) = "" Then
    MkDir sMain

'Add file Test.pdf from "C:\MISC\Test.pdf"

  End If

 
End Sub

It used to work really great before I migrated over to the 365 Microsoft platform.

I'm now getting an error on line:

 If Dir(sMain) = "" Then

Can someone help me with the code?

Thanks!
Pinaceous

 

[Marc L]

​

As MakeSureDirectoryPathExists creates all the necessary folder & subfolders at once so just use it before moving the file​

and as you can notice in my previous post link the path must ends with a backslash if it does not contain the file name …​

​

And no need to add any reference as your code is in late binding mode.​