Question

VB通用对话框怎么选择文件夹类型的文件？

Answer 1

'+部件 microsoft Common Dialog Control 6.0，并拖一个CommonDialog1和 Command1控件到窗体，
Private Sub Command1_Click()

CommonDialog1.FileName = "C:\Program Files\566.mp3" '打开的文件夹，及默让打开的文件名
CommonDialog1.Filter = "音乐文件(*.mp3)|*.mp3|文本文件(*.txt)|*.txt|JPG图片文件(*.jpg)|*.jpg|所有文件(*.*)|*.*|"
CommonDialog1.DialogTitle = " 打开文件" '弹出窗体的标题

CommonDialog1.ShowOpen

End Sub

Answer 2

ture(cdg1.filename)

image1.picutre的属性是图片属性，你不能直接拿字符串赋值，应该用LoadPicture函数加载图片。

MSDN帮助如下：
LoadPicture 函数

将图形载入到窗体的 Picture 属性、PictureBox 控件或 Image 控件。

语法

LoadPicture([filename], [size], [colordepth],[x,y])

LoadPicture 函数语法有下列部分：

部分 描述
filename 可选的。字符串表达式指定一个文件名。可以包括文件夹和驱动器。如果未指定文件名，LoadPicture 清除图象或 PictureBox 控件。
size 可选变体。如果 filename 是光标或图标文件，指定想要的图象大小。
colordepth 可选变体。如果 filename 是一个光标或图标文件，指定想要的颜色深度。
x 可选变体，如果使用 y ，则必须使用。如果 filename 是一个光标或图标文件，指定想要的宽度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。只有当 colordepth 设为 vbLPCustom 时，才使用X 和 Y值。For icon files 255 is the maximum possible value
y 可选变体，如果使用 x， 则必须使用。如果 filename 是一个光标或图标文件，指定想要的高度。在包含多个独立图象的文件中，如果那样大小的图象不能得到时，则使用可能的最好匹配。For icon files 255 is the maximum possible value

设置值

size 的设置值为：

常量 值 描述

vbLPSmall 0 系统小图标。
vbLPLarge 1 系统大图标，由视频驱动程序决定。
vbLPSmallShell 2 外壳小图标大小，由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的 Caption Buttons 的大小设置决定。
vbLPLargeShell 3 外壳大图标大小，由“控制面板”中的 Display Properties 对话框中 Appearance 选项卡上的图标大小设置决定。
vbLPCustom 4 自定义大小，由 x 和 y 参数提供值。

colordepth 的设置值为：

常量 值 描述

vbLPDefault 0 如果使用指定文件，则为最佳可用匹配。
vbLPMonochrome 1 2 色。
vbLPVGAColor 2 16 色。
vbLPColor 3 256 色。