VB中如何判断文件类型？

1-有扩展名，依据扩展名判断（这个简单）2-没有扩展名，比如给你个图片文件image,文件没有扩展名，可以通过以下方式进行判断，但同时如果确定是图片且系统支持的类型，则无需关心文件类型，直接读取到Image就可以，系统也是依据以下的方式判断 1.JPEG【判断文件开始2字节与结束2字节】- 文件头标识 (2 b...

Function getOpenCommand(fileExt As String) as String Dim fileType as String, openCommand as String fileExt = "." + fileExt '取得文件扩展名在注册表里的文件类型名称 '比如.zip的类型名称一般是zipfile fileType = 读取注册表的classes_root下的子键(fileExt)的默认键值 '取得打开这种文件的程...

1，DriveListBox 控件 --- 磁盘 2，DirListBox 控件 --- 目录 3，FileListBox 控件 --- 文件列表 工具箱上：那红色圈出来的，除了那个钟表图标外的3个就是了。很好辨认，磁盘、目录、文件。

引用 对话框控件 Private Sub Command1_Click()'打开对话框CommonDialog1.Filter = "*.mp3文件|*.MP3|mp4文件|*.mp4"CommonDialog1.ShowOpenEnd SubPrivate Sub Command2_Click() ’另存为对话框CommonDialog1.Filter = "txt文件|*.txt"CommonDialog1.FileName = Format(Now, "yyyymmddhhmmss")C...

ASCLL码、汉字机内码)，文本的编码也可以当作二进制，二进制数据也可以当作文本打开。不过文本文件当作二进制打开显示的不是文本而是文本的编码，二进制文件当作文本文件打开则可能出现乱码，所以你应该知道你打开的文件是什么类型，然后用相应的格式正确打开 如有疑问，请追问。

'// 找出 “.”的位置，即后缀 intStrat = InStrRev(strFileName, ".")If intStrat > 0 Then strPostfix = Mid$(strFileName, intStrat + 1)'// 如果未指定类型，则准备将文件名增加到数组 If strType = "*" Then GoTo AddFileStep1 '// 判断是否为想要类型 If InStr(UCase(strType)...

Dim fso As Object, ff As Object, fn As Stringfn = "d:\tmp\123.doc" '要打开的文件，具体来源你自己搞定Set fso = CreateObject("Scripting.FileSystemObject")Set ff = fso.GetFile(fn)MsgBox "这个文件的类型为：" & ff.Type'对打开的文件要进行的操作代码可以放在这里Set ff = Nothing...

说具体一点 如果是用打开对话框打开的话 设置文件类型 可以这样设置 CommanDialog.Filter="文本文件(*.txt)|*.txt|RTF格式文本(*.rtf)|*.rtf|*.log,*.ini,*.asm,*.c,*.h|*.log;*.ini;*.asm;*.c;*.h|所有文件(*.*)|*.*"

vb中一个工程。没有必须有的文件类型。当然特定需要的时候，是有规则的。例如你想做一个画面就必须有Frm文件。你想做面向对象的就必须要有Cls。想做Visaul自己的水晶报表。就必须有Dsr等文件。你想将函数在多个Form方法共享，又想大家 都能访问上，就必须要有Bas文件。以上是根据你的需求来设定的。

dlg.Filter = "EXCEL 文件|*.xls"得在窗体装载时候写,要不不行的