这里谁最厉害,寻找高手 在线等

Question

我在程序中用到了CommonDialog控件.想选择一个目录下的多个文件进行操作,
文件类型如:932-014.tif,而想要去除类似932-.tif这样的文件.
我用了如下代码
With CommonDialog1
.Flags = cdlOFNAllowMultiselect '允许选择多个文件
.Filter = "(图形文件(*-*?.tif)|*-*?.tif" '只显示tif文件，可根据需要改变
.MaxFileSize = 10000 'FileName属性的最大长度，可根据需要改变
.ShowOpen '显示"打开文件"对话框
可是最后的结果却是可以选择多个文件,但是却把所有.TIF的文件都显示出来了,无法达到去除932-.tif这样的文件的目的.
请高手解答

Answer 1

province_(雍昊)  的回答应该是正确的~~~~~~~~~~~~~~~~~~~~~~

Answer 2

CommonDialog1.Filter = "图形文件(*.tif)|932-*.tif" 只能挑出这样的文件，不能去除！

Answer 3

雍兄说的是对的，可惜他写得不大明白。（其实我下面写的也不是很明白……）小花猫是个按钮
小青蛙是个CommonDialogPrivate Sub 小花猫_Click()
  Dim 小老鼠 As String
  小老鼠 = "932-"
  With 小青蛙
    .Filter = "tif文件(*.tif)|" & 小老鼠 & "?*.tif"
    .InitDir = App.Path
    .ShowOpen
  End With
End Sub

Answer 4

上面的代码是这样用的：1、建立一个窗体，名称叫做“小绵羊”
2、在“小绵羊”上面放一个CommandButton。名称叫做“小花猫”
3、在“小绵羊”上面放一个CommonDialog。名称叫做“小青蛙”然后上面代码就奏效了。如果奏效的话，你把“小老鼠”改成="*-"，就“喵喵”了。

Answer 5

如果下次你对*-?*.xxx这样的格式没把握，可以在“MS-DOS方式”，用dir *-?*.xxx来检测是不是奏效。在DOS时代，这些格式是经常用的。

Answer 6

哈哈，老虎来也
就一动物园//.Filter = "(图形文件(*-*?.tif)|*-*?.tif" '只显示tif文件，可根据需要改变按province_(雍昊)所作的方法进行修改
.Filter = "(图形文件(*-?*.tif)|*-?*.tif" '只显示tif文件，可根据需要改变就可以了楼主还要是不仔细看回复，那就去动物园逛逛吧，那里不需要怎么操心的。

Answer 7

文件类型如:932-014.tif,而想要去除类似932-.tif这样的文件.
是不是932-.tif这样的文件中显示一个出来，我不是很明白你的意思