VB中如何判断文件类型？

发布网友 发布时间：2022-04-22 05:10

我来回答

共5个回答

热心网友 时间：2023-09-25 05:11

这个问题可以用注册表解决。

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

读取注册表的HKEY_CLASSES_ROOT下的子键的默认键值的方法可以在网上搜索到。

这样getOpenCommand("doc")就可以得到一个字符串(包括引号)：
"C:\Program Files\Word\word.exe" "%1"

这里只需要用Spilt函数把C:\Program Files\Word\word.exe分离出来就好了

热心网友 时间：2023-09-25 05:11

一般情况下，都是通过文件后缀来判断的，比如 *.jpg，就判断为图像文件

热心网友 时间：2023-09-25 05:11

您好，这个主要是发烧造成的，慢慢就消退下去了，宝宝的发热如果是超过了38度就是需要及时的口服退热的药物来进行治疗.才是可以.反复的发热就是需要及时的做一下血常规的检查等.

指导意见：

1.物理降温的方法对低热效果比较好.可以选择外擦大血管走形的部位比如颈部的两侧.腋窝.腘窝等.手心和脚心不要擦拭

2.药店卖的兵兵退热贴效果不错

你好，放心，没事的，我家宝宝前几日也有这样的情况，当时很是担心，但是三天后就褪了，不需要用其他的药物。会自动褪的、我家宝宝发烧后也是那样,可以给宝宝擦点痱子粉.

热心网友 时间：2023-09-25 05:12

Dim s As New IO.FileInfo(文件名)Dim 扩展名 As String = s.(我记得是有个扩展名的选项，你找找)

热心网友 时间：2023-09-25 05:13

这个。。你得用二进制读取文件，获取文件头