• Create folder (VBA – Excel XP)

    Home » Forums » AskWoody support » Productivity software by function » Visual Basic for Applications » Create folder (VBA – Excel XP)

    Author
    Topic
    WSrrdavis
    AskWoody Lounger
    January 24, 2003 at 4:46 pm #382319

    I am sort of an advanced beginner with VBA. I am needing to programmatically test for the existence of a Windows folder, and create it if it does not exist. I couldn’t find out how to accomplish this with the books I have. Does anybody have code that would accomplish this?

    Reply | Quote
    Viewing 1 reply thread
    Author
    Replies
    • WScarbonnb
      AskWoody Lounger
      January 24, 2003 at 4:52 pm #647561

      You need to use the Dir and mkDir command.

      Dim strDir As String
      ‘Directory to check
      strDir = “C:test”
      ‘Does directory exist
      If Dir(strDir, vbDirectory) = “” Then
      ‘No, so create it
      MkDir strDir
      End If

      Reply | Quote
    • WSVBNerd
      AskWoody Lounger
      January 24, 2003 at 5:46 pm #647583

      I believe the FileSystemObject has a FolderExists method/function.

      Reply | Quote
      • WSrrdavis
        AskWoody Lounger
        January 24, 2003 at 6:18 pm #647608

        Bryan–

        Thanks for your piece of code. It worked for creating a directory.

        Mike–

        There is a FolderExists and a FileExists method. For the little function I’m creating, I also need to determine if a certain file name exists. The documented syntax for FileExists is object .FileExists(filespec) where Object is always the name of a FileSystemObject. How do I determine the name of the FileSystemObject that I need to use?

        Reply | Quote
        • WScarbonnb
          AskWoody Lounger
          January 24, 2003 at 6:38 pm #647618

          Randall,,
          You can use the Dir function to see if a file exists as well.

          If Dir(“c:FullPathtoFile.ext”) = “” then
          ‘File does not exist
          End If

          If the file does exist, the dir command will return the File Name.

          Reply | Quote
        • WSAndrew Cronnolly
          AskWoody Lounger
          January 24, 2003 at 6:48 pm #647631

          You can use the FileSystemObject from the scripting runtime as follows :

          Dim oFs
          Set oFs = CreateObject(“Scripting.FileSystemObject”)
          If oFs.FileExists(“FilepathFileName”) Then
          ‘do whatever
          End if
          Set oFs = Nothing

          You can also use oFs.FolderExists to check for folders.

          You could also use something like

          Function fFileExists(strFullName As String) As Boolean
          fFileExists = Len(Dir(strFullName, vbNormal))
          End Function

          Andrew C

          Reply | Quote
        • WSVBNerd
          AskWoody Lounger
          January 24, 2003 at 6:52 pm #647632

          You’ll need to set a reference to Microsoft Scripting Runtime. It’s possible that you’ll need to install the Windows Scripting Host, but it’s usually installed on most systems unless you specifically didn’t install it.

          Dim oFSO as Scripting.FileSystemObject

          Set oFSO = New Scripting.FileSystemObject

          If oFSO.FolderExists(“folderpath”) = True…

          I hope this helps.

          cheers

          Reply | Quote
        • WSDrew
          AskWoody Lounger
          January 24, 2003 at 11:30 pm #647706

          Just a warning about the FileSystemObject. It is part of the scripting model, and some network administrators disable it, so if your code is going to be used at locations you don’t have control over, it is a better idea to use the code Bryan posted (carbonnb).

          Reply | Quote
    Viewing 1 reply thread
    Reply To: Create folder (VBA – Excel XP)

    You can use BBCodes to format your content.
    Your account can't use all available BBCodes, they will be stripped before saving.

    Your information:




DON'T MISS OUT!
Subscribe to the Free Newsletter
We promise not to spam you. Unsubscribe at any time.
Invalid email address

View the Forum

  • Recent Replies
  • My Replies
  • My Active Topics
  • New Posts in the Last day
  • Private Messages
  • Knowledge Base
  • How to use the Forums
  • All Forums

    • Recent Topics

    My Profile

    March 2025
    S M T W T F S
     1
    2345678
    9101112131415
    16171819202122
    23242526272829
    3031  

    Remembering Woody

     

    Want to Advertise in the free newsletter? How about a gift subscription in honor of a birthday? Send an email to sb@askwoody.com to ask how.

    Mastodon profile for DefConPatch
    Mastodon profile for AskWoody

     

    Home • About • FAQ • Posts & Privacy • Forums • My Account
    Register • Free Newsletter • Plus Membership • Gift Certificates • MS-DEFCON Alerts

    Copyright ©2004-2025 by AskWoody Tech LLC. All Rights Reserved.