Create new folder

[JonRowland]

Hi guys,

I'm pulling my hair out as to why the following isn't working. Basically, I am looking to move CSV files from one folder to a another one which will be create if doesn't exist.

However, when the below is run FSO.CreateFolder (ToPath) gives me an Error 76 - PATH NOT FOUND, rather than create within H:\StartFolder the new subfolders and subfolder within "\MoveItHere\BaseFiles".

What am I missing?


<code>
Sub Move_Certain_Files_To_New_Folder()

' This example move all Excel files from FromPath to ToPath.
' Note: It will create the folder ToPath
' Sourced from https://www.rondebruin.nl/win/s3/win026.htm

Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim FileExt As String
Dim FNames As String
Dim strFromDir As String
Dim strSavedFilePath As String

strFromDir = "H:\StartFolder"
strSavedFilePath = strFromDir + "" + "MoveItHere\BaseFiles"

Err = 0 ' For debugging

' Set Paths. Variables used as will be set Public prior to reaching this code.
FromPath = strFromDir
ToPath = strSavedFilePath

FileExt = "*.csv" '

If Right(FromPath, 1) <> "" Then
FromPath = FromPath & ""
End If

FNames = Dir(FromPath & FileExt)
If Len(FNames) = 0 Then
MsgBox "No files in " & FromPath
Exit Sub
End If

On Error Resume Next
Set FSO = CreateObject("scripting.filesystemobject")

' Create New Folder
FSO.CreateFolder (ToPath) ' Error 76 PATH NOT FOUND

FSO.MoveFile Source:=FromPath & FileExt, Destination:=ToPath

End Sub
</code>

 

[Logit]

.
First thing missing is placing the code between the HASH marks so it displays correctly on screen here. It makes it so much easier to view.

You can go back in to edit your post, highlight all of the code, then look above on the small menu bar and find the 'pound symbol' # ... click that and your code will
be properly formatted for the FORUM.

To your question ... I haven't tested this here ... but I think it might be one of the following :

strFromDir = "H:\StartFolder\"     '<--- place the backslash after StartFolder
strSavedFilePath = strFromDir + "" + "MoveItHere\BaseFiles"


'OR


strFromDir = "H:\StartFolder"
strSavedFilePath = strFromDir + "\" + "MoveItHere\BaseFiles"  '<--- place the backslash between the quotes

 

[JonRowland]

Logit apologies for the formatting error. Couldn't edit original post.

Thanks for tip but didn't fix my problem although it did let me see I had an error in the original code which should have added the \

It would appear that the issue is because I was trying to create a Subfolder1 & Subfolder2 in one go. I managed to counter this by creating each subfolder at a time.

My interim code prior to adding the necessary variables

Sub Move_Certain_Files_To_New_Folder()
' This example move all Excel files from FromPath to ToPath.
' Note: It will create the folder ToPath
' Sourced from https://www.rondebruin.nl/win/s3/win026.htm

    Dim FSO As Object
    Dim FromPath As String
    Dim ToPath As String
    Dim FileExt As String
    Dim FNames As String
    Dim strFromDir As String
    Dim strSavedFilePath As String

    Err = 0    ' For debugging

    FromPath = "H:\StartFolder"
    <font color = "Green">ToPath = FromPath & "\" & "MoveItHere" & "\"</font>
    <font color = "Red">ToPath2 = ToPath + "BaseFiles" & "\"</font>

    FileExt = "*.csv"    '

    If Right(FromPath, 1) <> "\" Then
        FromPath = FromPath & "\"
    End If

    FNames = Dir(FromPath & FileExt)
    If Len(FNames) = 0 Then
        MsgBox "No files in " & FromPath
        Exit Sub
    End If

    On Error Resume Next
    Set FSO = CreateObject("scripting.filesystemobject")

    ' Create New Folder
<font color = "Green">    FSO.CreateFolder (ToPath)</font>
<font color = "red">    FSO.CreateFolder (ToPath2)</font> 

    FSO.MoveFile Source:=FromPath & FileExt, Destination:=ToPath2

End Sub

 

[Logit]

.
So .... you have it working now ? Or no ?

You can also place OPTION EXPLICIT at the top of your macro (above : Sub Move_Certain_Files_To_New_Folder()) and this
will assist you in finding coding errors. If you are not familiar with the OPTION statement it will require you
to DIM your variables but also points out coding errors.

 

[JonRowland]

Yes it is working. I am very familiar with Option Explicit just didn't include it in my example, not that it would have picked up my typo error.

 

[Logit]