如何在vb中实现选中一个文件夹内的所有同类文件并且执行删除 *** 作?

1，假设您提出的同类文件为“.abc”：

kill("您的文件所在目录\*.abc")

2，至于自定义文件拓展名，根据上面的意思，你设定就可以了。

3，用DIR指令可以显示指定路径的文件：

dir("您指定的文件目录\*.*",vbNormal)

CommonDialog 控件（“打开”、“另存为”对话框）

通过使用 CommonDialog 控件的 ShowOpen 和 ShowSave

方法可显示“打开”和“另存为”对话框。

两个对话框均可用以指定驱动器，目录，文件扩展名和文件名。除对话的标题不同外，另存为对话外观上与打开对话相似。

在运行时，当用户选择一个文件“关闭”对话框时，FileName 属性既为选定的文件名。

可以设置 Filter 属性，这样对话就只显示某种文件类型，如文本文件。Flags

属性可用来改变对话的元素，当诸如覆盖文件之类的动作发生时，还可用来提示用户。

CommonDialog

控件（“打开”、“另存为”对话框）示例

下例显示“打开”对话框然后在信息框中显示所选的文件名：

Private Sub Command1_Click()

' 设置“CancelError”为 True

CommonDialog1.CancelError = True

On Error GoTo ErrHandler

' 设置标志

CommonDialog1.Flags = cdlOFNHideReadOnly

' 设置过滤器

CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" &_

"(*.txt)|*.txt|Batch Files (*.bat)|*.bat"

' 指定缺省的过滤器

CommonDialog1.FilterIndex = 2

' 显示“打开”对话框

CommonDialog1.ShowOpen

' 显示选定文件的名字

MsgBox CommonDialog1.FileName

Exit Sub

ErrHandler:

' 用户按了“取消”按钮

Exit Sub

End Sub

if text1.text="文件名.txt" then

text3.text="描述1"

elseif text1.text="文件名2.txt" then

text3.text="描述2"

end if

---