filesystemobject.movefolder?

[lee123]

why is this so hard to do. i have alot of books that have exaples of how to do these things but when i try the exaples they never work i have a previous post on "copying files" some of the other guys help on this one and i tried to do the same thing with the "movefile" but it never worked as you can see the "filesystemobje ct" is hard to accomplish for me because this "Movefolder " event falls in this category the code i have i have used for the copyfolder event right here:

Dim fso As New Scripting.FileSystemObject
Dim fld As Folder
Set fld = fso.GetFolder(txtSourceOfFolder)
fld.Copy (txtDestinationOfFile)

this is to copy the folder. How can i use this to move the folder to another folder of my choosing. because i have tried this:

Dim fso As New FileSystemObject
Dim fldr As Folder
Set fso = fso.GetFolder(TxtSource.Text)
fldr.Move (TxtDestination.Text)
MsgBox "Moved"

so can someone tell me or explain to me why it doesn't work. is there something There not explaining in these books? or is this "filesystemobje ct" a hard cookie to crack.

lee123

[jg007]

not sure if this was just a miss type but you are not assigning the fldr variable before trying to use it

your code -

Dim fso As New FileSystemObject
Dim fldr As Folder
Set fso = fso.GetFolder(TxtSource.Text)
fldr.Move (TxtDestination.Text)
MsgBox "Moved"

works as

Dim fso As New FileSystemObject
Dim fldr As Folder
Set fldr= fso.GetFolder(TxtSource.Text) ' <------ note the change here 
fldr.Move (TxtDestination.Text)    
MsgBox "Moved"

[jg007]

it also helps if you post any errors you receive as in this case I would have expected to see -

' Warning 1 Variable 'fldr' is used before it has been assigned a value. A null reference exception could result at runtime.


I'm not to sure of the exact terms but fso is just a pointer to the filesystemobjec t and you then use getfolder to assign a specific folder to fldr , once fldr is pointed at a folder you can user the function to move it.

[lee123]

hey there, ok it was a miss type on my part, i got so fustrated doing it so many ways that i forgot to change it back to "fldr" and the error I'm getting is "Permssion Denied" and it keeps pointing to this part of the code:

fldr.Move (TxtDestination.Text)

is it because there are files in this folder? or I can't express the code this way. How Can I do This?

lee123

[lee123]

Oh Yea I have tried it this way too but keep getting an error: "Compile Error: Argument not Optional"

Private Sub cmdMove_Click()
Dim fso As New FileSystemObject
Dim fldr As Folder
Set fldr = fso.MoveFolder(TxtSource.Text) <----- I changed it here
fldr.Move (TxtDestination.Text)
MsgBox "Moved"
End Sub

and it points to this part of the code:

Set fldr = fso.[B]MoveFolder[/B](TxtSource.Text) <-----Where Bolded

in the book i have this is what it says to do.

lee123

[ubentook]

MoveFolder requires two arguments...
fso.MoveFolder( Source, Destination)

Move requires one argument...
fldr.Move(Desti nation)

Oh Yea I have tried it this way too but keep getting an error: "Compile Error: Argument not Optional"


and it points to this part of the code:

Set fldr = fso.[B]MoveFolder[/B](TxtSource.Text) <-----Where Bolded

lee123

[lee123]

So what are you saying.....My way won't Work? or Can't work the way I want it to?

lee123

[ubentook]

The answer is... Yes

[lee123]

So How Would you Go about Doing this?

lee123

[!NoItAll]

I don't believe move or movefolder will work across drives if that's what you are trying to do.

[lee123]

is there a function that will? for example move one forder (lets say in C:\) to another (lets say in D:\)

lee123

[ubentook]

Copy the folder to the other drive then delete the original folder...

Sub MoveAndConfuse( )
Dim fso As Scripting.FileS ystemObject
Dim fldr As Scripting.Folde r
Set fso = New Scripting.FileS ystemObject
Set fldr = fso.GetFolder(" C:\Documents and Settings\user\M y Documents\Folde rName")
fso.CopyFolder fldr.Path, "F:\Scotch Tape\"
fldr.Delete
Set fldr = Nothing
Set fso = Nothing
End Sub

[lee123]

Thank You : UBentToo, for that it works.. this "filesystemobje ct" is hard to figureout but i have learned alot from it thanks again.

lee123