试试这个吧,这个可以把文件名显示在LIST中Private Sub addf_Click()'添加单个文件On Error Resume NextDim I As Integer
Dim Y As Integer
Dim Z As Integer
Dim FileNames$()List1.ClearText1.Text = "" dlg.Flags = cdlOFNExplorer + cdlOFNAllowMultiselect
'允许选择多文件dlg.MaxFileSize = 8192 '文件名缓冲大小dlg.DialogTitle = "请选择要打开的图像...