View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
Richard Richard is offline
external usenet poster
 
Posts: 709
Default Saving to Intranet Site

Hi,

I have automated the saving of an excel workbook to an intranet site, with
the current days date as part of the file name so that the file name looks
some like:
filename yymmdd.
However I would like to automate the creation of new folder names, so that
if there isn't a folder for either the current year, or the current month, or
both, the macro will create them.

I was given the following, but this doesn't appear to work when the folder
address starts with http:

Sub TestDir()

If Dir("C:\Windhoos", vbDirectory) = "" Then
MkDir ("C:\Windhoos")
End If

End Sub


Please advise.

Many Thanks
Richard