auto create missing folder when moving file

[lplover2k]

here's my problem
i want to move the file
"c:\test\myfolder\myfile.txt" to "d:\test\myfolder\myfile.txt"

but the folder "d:\test\myfolder\" doesn't exist...

[Hack]

Use this API before your copy

Option Explicit
 
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" _
(ByVal lpPath As String) As Long
 
Private Sub cmdCopyFiles_Click
MakeSureDirectoryPathExists "d:\test\myfolder\"
FileCopy "c:\test\myfolder\myfile.txt", "d:\test\myfolder\myfile.txt"
End Sub

The API will create the folder if it doesn't already exist, and do nothing if it does.

[lplover2k]

wow cool!!! thanks very much and very quick reply!!!

edit:

it doesn't seem to work... the missing folders are not created....

edit2:
ok just saw ur post below it works great with "\" at the end !!! thanks again!

[Hack]

No problem.

One last comment. Even though I've used that API about a zillion times I still get caught in a "gotcha" with it. If you don't include the last, trailing, backslash, the API won't work.

In other words "d:\test\myfolder\" will result in the folder being created, if it doesn't exist, or ignored if it does. However, "d:\test\myfolder" will result in the folder NOT being created, but, you won't know it until your copy blows up. Without the trailing backslash the folder won't be created, and you won't receive an error message.

Also, If you consider this resolved, would you please pull down the Thread Tools menu and click the Mark Thread Resolved menu item? That will let everyone know that you have your answer.

Thank you.

[aikidokid]

I have used the code Hack suggested here...

MakeSureDirectoryPathExists App.Path & "\" & tvwCode.SelectedItem

but it doesn't create a new folder when the tvwCode.SelectedItem folder does not exist.

Anybody see why?

Thanks

[Capp]

Try it like this:

MakeSureDirectoryPathExists App.Path & "\" & tvwCode.SelectedItem & "\"

[bushmobile]

Anybody see why?

....

One last comment. Even though I've used that API about a zillion times I still get caught in a "gotcha" with it. If you don't include the last, trailing, backslash, the API won't work.

In other words "d:\test\myfolder\" will result in the folder being created, if it doesn't exist, or ignored if it does. However, "d:\test\myfolder" will result in the folder NOT being created, but, you won't know it until your copy blows up. Without the trailing backslash the folder won't be created, and you won't receive an error message.

[aikidokid]

And I just read that as well!

Time for a break me thinks

[Always_Confused]

Hack, is there a quick way to use this and intercept whether the path did not exist and do a yes/no message box to approve the creation?

used this in my current project and really saved time.

[Hack]

Sure....

Dim mbResponse As VbMsgBoxResult
If Dir$("d:\test\myfolder", vbDirectory) = vbNullString Then
    mbResponse = MsgBox("The folder does not exist.  Would you like me to create it for you?", vbYesNo + vbQuestion, "Create Folder")
    If mbResponse = vbYes Then
       MakeSureDirectoryPathExists "d:\test\myfolder\"
    End If
End If