Question

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

c盘有一个a文件夹
a文件夹里有b文件夹
b文件夹有c文件夹
程序在b文件夹
如何把c文件夹复制到a文件夹
用VB

Answer 1

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

Answer 2

还是楼上的简单，我这和那个意思差不多，就是将长文件名转为短文件名
，是没有什么必要，因为我想用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.Text
strShort = String(LenB(fname), Chr(0))
l& = GetShortPathName(ByVal fname, ByVal strShort, ByVal Len(strShort))
fname2$ = Left(strShort, InStr(strShort, Chr(0)) - 1)
Text1.Text = fname2$ + "\c"
End Sub

Private Sub Command3_Click()
Dim path
Dim jia
Dim jiab
path = App.path
Text2.Text = path
Dim strShort As String, fname$, l&, fname2$
fname = Text2.Text
strShort = String(LenB(fname), Chr(0))
l& = GetShortPathName(ByVal fname, ByVal strShort, ByVal Len(strShort))
fname2$ = Left(strShort, InStr(strShort, Chr(0)) - 1)
Text2.Text = fname2$
jhb = InStrRev(Text2.Text, "\")
Text2.SetFocus
Text2.SelStart = 0
Text2.SelLength = jhb
jiab = Text2.SelText
Text2.Text = jiab
End Sub

Answer 3

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