Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make a directory on the fly
I'm trying to write a vb routine that will save a file in
a certain directory. I want to test for the existence of the directory and create it if it doesn't exist, before saving the file. please help? Thanks |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make a directory on the fly
Here is a sub I use to create a directory and save a backup file in that
directory. Modify to suit. Sub Backup() 'kept in personal.xls & assigned to toolbar button On Error GoTo BackupFile MkDir CurDir & "\Backup" BackupFile: With ActiveWorkbook MyWB = .Path & "\BACKUP\" & .Name .SaveCopyAs MyWB .Save End With End Sub -- Don Guillett SalesAid Software "Jonefer" wrote in message ... I'm trying to write a vb routine that will save a file in a certain directory. I want to test for the existence of the directory and create it if it doesn't exist, before saving the file. please help? Thanks |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make a directory on the fly
Try something like this: - adjusted for your names On Error Resume Next MkDir ThisWorkbook.Path & "\NEW DIRECTORY NAME" ChDir ThisWorkbook.Path & "\NEW DIRECTORY NAME" ThisWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\NEW DIRECTOR NAME\MyFileName.xls", _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False, CreateBackup:=False HT ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Make a directory on the fly
Just trap the error - less work than testing.
On Error Resume Next mkdir "C:\MyDirectory" On Error goto 0 If your directory is several levels, then you might need to work down the structure On Error Resume Next mkdir "c:\Level1" mkdir "c:\Level1\Level2" mkdir "c:\Level1\Level2\Level3" On Error goto 0 If there might be a problem with permissions, then you might need to check for the existence after the above. -- Regards, Tom Ogilvy Jonefer wrote in message ... I'm trying to write a vb routine that will save a file in a certain directory. I want to test for the existence of the directory and create it if it doesn't exist, before saving the file. please help? Thanks |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How to automatically make excel detect directory path for linked f | Excel Discussion (Misc queries) | |||
Cell reference to make a directory path | Excel Worksheet Functions | |||
is there a add-on for excel to make mp3 list from directory | Excel Discussion (Misc queries) | |||
How do i make a telephone directory for the office | New Users to Excel | |||
How do I make a school directory? | New Users to Excel |