Private Sub Form_Load()
On Error GoTo errorhandler
Dim fso As New FileSystemObject
fso.MoveFolder "f:\test", "h:\"
errorhandler:
MsgBox (err.Description)
End Sub

Notes:

Add a reference to the Microsoft Scripting library
change the folders you wish to move.
On certain versions of Windows (xp, 2000 etc) you will need permission to move folders