Microsoft Office Forums

Go Back   Microsoft Office Forums > >

 
 
Thread Tools Display Modes
Prev Previous Post   Next Post Next
  #1  
Old 12-16-2011, 04:46 PM
Joe Patrick Joe Patrick is offline How to create a system folder with VB macro? Windows 7 64bit How to create a system folder with VB macro? Office 2007
Advanced Beginner
How to create a system folder with VB macro?
 
Join Date: May 2011
Posts: 33
Joe Patrick is on a distinguished road
Default How to create a system folder with VB macro?

Hi!



I have this code that works from Excel but from Word I get an error 13/type mismatch.

Can anyone help me make this work from Word, please?

Code:
Sub CreateNewFolder()
Dim _
fso As FileSystemObject, _
fol As Folder, _
fol_add As Folder, _
fil As File
Const strFolPath As String = "\\Fileserver\commonh\GROUP\SDF_data_export"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set fol = fso.GetFolder(strFolPath)
 
    On Error GoTo Finish
        If Not fso.FolderExists(strFolPath & "\" & ThisDocument.Textbox59.Value) Then
            Set fol_add = fso.CreateFolder(fol.Path & "\" & ThisDocument.Textbox59.Value)
        End If
    End If
 
    Set fso = Nothing
    Set fol = Nothing
 
End Sub
Reply With Quote
 

Thread Tools
Display Modes


Similar Threads
Thread Thread Starter Forum Replies Last Post
How to create a system folder with VB macro? Macro to save as pdf with ability to choose save as folder rvessio Word VBA 4 07-25-2016 12:37 PM
How to create a system folder with VB macro? Launch macro sub after hitting "create pdf" button in word webharvest Word VBA 1 06-29-2011 04:56 PM
Create Custom menu using a macro twnty2 PowerPoint 0 06-29-2011 04:26 PM
How to create macro to paste text after style? Srivas Word 0 03-16-2010 05:28 AM
Cannot create a public folder? gfkbob Outlook 0 01-07-2010 07:18 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 03:46 PM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2025, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2025 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft