Go Premium for a chance to win a PS4. Enter to Win

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

FSO Path Not Found Issue

I am trying to create a folder if it does not exist but I am getting a "Path Not Found" issue in the process.  Here is my code:

    sPath = "c:\h51_software\CCMeet\meets\" & Year(dMeetDate) & "\" & sMeetName & "\rfid"
    If fs.FolderExists(sPath) = False Then
        Set fldr = fs.CreateFolder(sPath)
        Set fldr = Nothing
        
        ts = fs.CreateTextFile(sPath & "\192.168.1.106.txt")
    End If

Open in new window


Any help would be much appreciated.
0
Bob Schneider
Asked:
Bob Schneider
1 Solution
 
Rgonzo1971Commented:
Hi,


As far as I know, CreateFolder only creates the last node. If something in the path different of rfid doesn't exist it won't create it,
Sub myCreateFolder(strPath)
  arrTmp = Split(strPath, "\")
  myPath = tmpArr(0)
  For i = 1 To UBound(arrTmp )
    If Not fs.FolderExists(tmpPath) Then
      fs.CreateFolder myPath 
    End If
    myPath = myPath & "\" & arrTmp(i)
  Next
End Sub 

Open in new window

Regards
0

Featured Post

Technology Partners: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

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