Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 245
  • Last Modified:

ANother FSO Create Folder Issue

Why do I get a Path Not Found error at Set fldr = fs.CreateFolder(sPath & "\rfid\") when I know it's not there...I am trying to create it if it is not there?  The sPath directory is there.

    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.FolderExists(sPath) = False Then CreateFolder (sPath)
    
    If fs.FolderExists(sPath & "\rfid\") = False Then
        Set fldr = fs.CreateFolder(sPath & "\rfid\")
    End If

Open in new window


Thanks!
0
Bob Schneider
Asked:
Bob Schneider
2 Solutions
 
MacroShadowCommented:
Works fine for me.

    Dim fs As Object
    Dim fldr As Object
    
    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.FolderExists(sPath) = False Then fs.CreateFolder (sPath)

    If fs.FolderExists(sPath & "\rfid\") = False Then
        Set fldr = fs.CreateFolder(sPath & "\rfid\")
    End If

Open in new window

0
 
byundtCommented:
Did you keep track of your path separators? If sPath ends in a path separator, I can understand the error.

The following code is working for me in Excel 2013. I needed to qualify the first CreateFolder statement with fs.CreateFolder(sPath). After testing, I found that I could omit the trailing path separator in \rfid\    So whichever way you find least confusing, make both statements that refer to \rfid the same.
Sub TestFSO()
Dim fs As Object
Dim sPath As String
Dim fldr As Object
sPath = "X:\VBA"    'This is how Brad tested the code

    Set fs = CreateObject("Scripting.FileSystemObject")

    If fs.FolderExists(sPath) = False Then fs.CreateFolder (sPath)
    
    If fs.FolderExists(sPath & "\rfid\") = False Then
        Set fldr = fs.CreateFolder(sPath & "\rfid\")
    End If
End Sub

Open in new window

0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

Join & Write a Comment

Featured Post

Get your problem seen by more experts

Be seen. Boost your question’s priority for more expert views and faster solutions

Tackle projects and never again get stuck behind a technical roadblock.
Join Now