如何将文件夹的多个文件复制到上一个文件夹中去

Private Sub Command1_Click()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
lj = Left(App.Path, (InStrRev(App.Path, "\")))
fso.CopyFolder App.Path & "\c", lj
End Sub

晕，多个文件夹复制按住｛Ctrl}不放，然后逐个点选，或点选一个起始文件夹按住[Shift]再点选一个结尾文件夹，中间的文件就全部被选定了，然后右键--复制--向上--右键--粘贴
明白么？:)

还是楼上的简单，我这和那个意思差不多，就是将长文件名转为短文件名
，是没有什么必要，因为我想用shell 命令做着，不过没能成。

Private Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long

Private Sub Command1_Click()
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
fso.MoveFolder Text1.Text, Text2.Text

End Sub

Private Sub Command2_Click()

Dim path
path = App.path
Text1.Text = path
Dim strShort As String, fname$, l&, fname2$
fname = Text1.T