VBA code needed to creata folder on desktop

You could use the "MkDir" command.

Look at the final example in this post:

http://www.mrexcel.com/board2/viewtopic.php?t=56967&highlight=create+folder+vba

This is adequate if you can get away with hardcoding the fullpath to the Desktop. e.g. you could just hardcode the path to the "All Users" desktop.

C:\WinNT\Profiles\All Users\Desktop

First you would have to activate the Microsoft Scripting Runtime library (it's under Tools/ References)

Then add these lines to your macro. Be sure to change the path, though.

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateFolder("c:\Test Folder")

This should work ok, without hardcoding the desktop path:

<font face=Courier New><SPAN style="color:#00007F">Option</SPAN> <SPAN style="color:#00007F">Explicit</SPAN>

<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Const</SPAN> CSIDL_DESKTOP = &H0
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Type</SPAN> ****EMID
    cb <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
    abID <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Byte</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Type</SPAN>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Type</SPAN> ITEMIDLIST
    mkid <SPAN style="color:#00007F">As</SPAN> ****EMID
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Type</SPAN>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Declare</SPAN> <SPAN style="color:#00007F">Function</SPAN> SHGetSpecialFolderLocation <SPAN style="color:#00007F">Lib</SPAN> "shell32.dll" _
    (<SPAN style="color:#00007F">ByVal</SPAN> hwndOwner <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> nFolder <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, pidl <SPAN style="color:#00007F">As</SPAN> ITEMIDLIST) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>
<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Declare</SPAN> <SPAN style="color:#00007F">Function</SPAN> SHGetPathFromIDList <SPAN style="color:#00007F">Lib</SPAN> "shell32.dll" Alias _
    "SHGetPathFromIDListA" (<SPAN style="color:#00007F">ByVal</SPAN> pidl <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, <SPAN style="color:#00007F">ByVal</SPAN> pszPath <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>

<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Function</SPAN> GetSpecialfolder(CSIDL <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>) <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">String</SPAN>
    <SPAN style="color:#00007F">Dim</SPAN> r <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN>, Path$
    <SPAN style="color:#00007F">Dim</SPAN> IDL <SPAN style="color:#00007F">As</SPAN> ITEMIDLIST
    <SPAN style="color:#007F00">'Get the special folder</SPAN>
    r = SHGetSpecialFolderLocation(100, CSIDL, IDL)
    <SPAN style="color:#00007F">If</SPAN> r = 0 <SPAN style="color:#00007F">Then</SPAN>
        <SPAN style="color:#007F00">'Create a buffer</SPAN>
        Path$ = Space$(512)
        <SPAN style="color:#007F00">'Get the path from the IDList</SPAN>
        r = SHGetPathFromIDList(<SPAN style="color:#00007F">ByVal</SPAN> IDL.mkid.cb, <SPAN style="color:#00007F">ByVal</SPAN> Path$)
        <SPAN style="color:#007F00">'Remove the unnecessary chr$(0)'s</SPAN>
        GetSpecialfolder = Left$(Path, InStr(Path, Chr$(0)) - 1)
        <SPAN style="color:#00007F">Exit</SPAN> <SPAN style="color:#00007F">Function</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
    GetSpecialfolder = ""
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Function</SPAN>

<SPAN style="color:#00007F">Sub</SPAN> Test()
    <SPAN style="color:#00007F">On</SPAN> <SPAN style="color:#00007F">Error</SPAN> <SPAN style="color:#00007F">Resume</SPAN> <SPAN style="color:#00007F">Next</SPAN>    <SPAN style="color:#007F00">'In case it already exists</SPAN>
    MkDir GetSpecialfolder(CSIDL_DESKTOP) & "\My Folder"
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>

JPG, thanks, I knew either you or Ivan would produce the special folder code. I don't have it.

north19701 said:

First you would have to activate the Microsoft Scripting Runtime library (it's under Tools/ References)

Then add these lines to your macro. Be sure to change the path, though.

Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateFolder("c:\Test Folder")

Click to expand...

Not to sound like a *****, but the purpose of the late binding here means that you don't have to set a reference to the Microsoft Scripting Runtime library.

Also, you can use the Windows Scripting object model, not always available, but here's a special folder example with some follow up thougts from Ivan.

http://www.mrexcel.com/board2/viewtopic.php?t=56968&start=5

The example is late bound, references need not apply.

...and here's a little latebinding, earlybinding example I cooked up: