Dim FSO As New FileSystemObject
        FSO.DeleteFolder "" & App.Path & "\房源图片\" & Trim(Text1.Text + Text2.Text + "-" + Text3.Text) & "" '删除文件夹
        MkDir "" & App.Path & "\房源图片\" & Trim(Text1.Text + Text2.Text + "-" + Text3.Text) & "" '在房源图片下创建文件夹

'上面是创建文件夹的！
’=============================================================
’下面是复制文件到目标文件夹
text4.text = C:\Users\Administrator\Desktop\测试\图片3\南苑51-303\20120704164730.jpg  《=====源图片地址和文件名
'"" & App.Path & "\图片\" & Trim(Text1.Text + Text2.Text + "-" + Text3.Text) & ""     《========是存放图片的文件夹地址，text1+text2+text3=南苑51-303
FSO.CopyFolder " & Trim( Text4.Text ) & ", "" & App.Path & "\图片\" & Trim(Text1.Text + Text2.Text + "-" + Text3.Text) & ""  《=====说地址未找到！不知道是哪个地址
哪里错了？请帮我看看改改！

CopyFile