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

显示全部楼层 · 2009-10-10 12:36:44

(1)执行“工程”菜单中的“部件”命令，打开“部件”对话框。(2)在对话框中，选择“控件”选项卡，然后在控件列表框中，选择“Microsof!CommonDialogControl6．0”。如图8．1所示。(3)单击“确定”按钮，通用对话框立即被加到工具箱中，如图8．2所示。通用对话框的默认名称(Name属性)为CommonDialogX(X为1，2，3，…)。通用对话框控件为程序设计人员提供了几种不同类型的对话框，利用这些对话框，可以获取所需要的信息，打开文件、将文件存盘、选择颜色、选择字体、打印、帮助。这些对话框与windows本身及许多应用程序具有相同的风格。对话框的类型可以通过Action属性设置，也可以用相应的方法设置。如图这是浏览过程的一个例子，打开文件。保存类似，可以根据图示属性选择显示保存对话框PrivateSubForm_Load()cdg1.InitDir=App.Path&"\image"cdg1.DialogTitle="选择背景图片"cdg1.Filter="图片文件(*.jpg)|*.jpg"cdg1.FileName=App.Path&"\image\11.jpg"Image1.Picture=LoadPicture(cdg1.filename)EndSub（cdg是通用对话框在工程中的名称）

千问 · 2009-10-10 12:36:44

楼上的只有说了如何使用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
'拷贝文件夹