当系统设置隐藏扩展名时,如何取得文件的扩展名?

xayzmb 2004-12-22 08:15:31

比如:
book1.xls 中的xls
文档1.doc 中的doc

...全文

342 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

xayzmb 2004-12-22

打赏
举报

多谢楼上的
这才我想要的答案
怎么忘了自已试一下呢.
结贴!!!

AprilSong 2004-12-22

打赏
举报

用FileListBox好像不受影响
用Dir函数也可以得到扩展名～

xayzmb 2004-12-22

打赏
举报

有没有不使用Microsoft Scripting Runtime的方法?

tztz520 2004-12-22

打赏
举报

CommonDialog1.FileName中就显示了后缀名

xayzmb 2004-12-22

打赏
举报

没有别的办法吗?

xayzmb 2004-12-22

打赏
举报

有没有不用引用Microsoft Scripting Runtime
的方法???

myhgyp 2004-12-22

打赏
举报

取文件的扩展名与系统是否设置隐藏扩展名没关系，照楼上的方法就可以实现了

leolan 2004-12-22

打赏
举报

Option Explicit

'引用Microsoft Scripting Runtime
Private Sub Command1_Click()
Dim fso As FileSystemObject
Dim sFile As String

CommonDialog1.ShowOpen
sFile = CommonDialog1.FileName

Set fso = New FileSystemObject
MsgBox fso.GetExtensionName(sFile)
Set fso = Nothing
End Sub