Question

关于vb上传图片到指定文件夹并命名的问题

我想设计一个小程序：在VB窗体中 有一个picturebox，一个文本框，一个浏览按钮，一个上传按钮。
我想实现的功能是：点击“浏览按钮”时弹出选择图片窗口，然后选择图片，之后图片在picturebox中显示出来，然后点击上传按钮，图片被拷贝到指定的文件夹，并重命名为："文本框里的内容".jpg。
请高手们给出详细的制作步骤，可以吗？

Answer 1

(1)执行“工程”菜单中的“部件”命令，打开“部件”对话框。

    (2)在对话框中，选择“控件”选项卡，然后在控件列表框中，选择“Microsof!Common Dialog

  Control 6．0”。如图8．1所示。

    (3)单击“确定”按钮，通用对话框立即被加到工具箱中，如图8．2所示。

    通用对话框的默认名称(Name属性)为CommonDialogX(X为1，2，3，…)。

    通用对话框控件为程序设计人员提供了几种不同类型的对话框，利用这些对话框，可以获取所需要的信息，打开文件、将文件存盘、选择颜色、选择字体、打印、帮助。这些对话框与windows本身及许多应用程序具有相同的风格。对话框的类型可以通过Action属性设置，也可以用相应的方法设置。如图 

这是浏览过程的一个例子，打开 文件。保存类似，可以根据图示属性 选择显示保存对话框

Private Sub Form_Load()

cdg1.InitDir = App.Path & "\image"

cdg1.DialogTitle = "选择背景图片"

cdg1.Filter = "图片文件(*.jpg)|*.jpg"

cdg1.FileName = App.Path & "\image\11.jpg"

Image1.Picture = LoadPicture(cdg1.filename)

End Sub

（cdg是通用对话框在工程中的名称）

Answer 2

楼上的只有说了如何使用commondialog进行图片的选择,还缺少复制粘贴,补充下
添加引用microsoft scripting runtime
方法：选择菜单“工程”-->“引用”-->选择“microsoft scripting runtime”

Option Explicit
Private Sub Form_Click()
Dim FileSys As New FileSystemObject
Dim FolderObj As Folder
Set FileSys = CreateObject("scripting.filesystemobject")
FileSys.CopyFile "c:\x1.rar", "d:\x2.rar", True '拷贝文件
FileSys.CopyFolder "c:\x1", "d:\x2", True '拷贝文件夹