View Single Post
  #4   Report Post  
Posted to microsoft.public.excel.programming
tj tj is offline
external usenet poster
 
Posts: 71
Default Creating Folder Folder in My Documents VBA - HELP

Thank you!! This worked great!

"moi" wrote:

Use WSHost for getting the full MyDocuments path, change to that dir and
create a new folder.

Public Sub addMyDocumentsDir()
Dim wShell, fso, strFldr As String
Set wShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
strFldr = wShell.SpecialFolders("MyDocuments")
ChDir (strFldr)
fso.CreateFolder ("test123")
End Sub



"Ali" schreef in bericht
...
Hi,

I am trying to find out how to create a folder in the My Documents folder.

I tried looking for system variables that could lead me to the location of
the my Documents folder, so that I coudl use mkdir and the path, but the
problem is, the my document is mapped to the server, and not to the
C:\documents and settings subfolders.

Will appreciate if i could get some help on this.

I will eventually want to create folders within the new folder in the My
Documents.

Thank you!

Ali