如何判断和获取文件扩展名?
各位:
我用以下 vb语句操作文件及文件夹
Set fso = CreateObject( "Scripting.FileSystemObject ")
Set f = fso.GetFolder(mypath)
有 2 个问题:
1.如何获取路径 mypath 下的文件的文件名和扩展名?特别是有些用户所建的文件没有扩展名时该如何判断或获取?
2.如何区别 路径 mypath 下的所列信息那些是文件?那些是文件夹?如用户建有 名为“125.txt”的文件夹,如何区别?
谢谢!
[解决办法]
F.Files ' 下面的所有文件。
F.SubFolders ' 下面所有子目录
[解决办法]
ImgFile 是文件名
sImgFile = len(ImgFile)-InstrRev(Imgfile, ". ")+1
sImgFile = Mid(ImgFile,InstrRev(Imgfile, ". "),sImgFile)
sImgFile 是扩展名
[解决办法]
判断文件可以用Getattr来判断if Getattr(路径) And vbDirectory then 就是目录否则是文件
判断文件扩展名可以使用下面函数如果返回为空,即表示没有扩展名
'此函数从字符串中分离出文件扩展名
Public Function GetFileExt(ByVal sFileName As String) As String
Dim P As Integer
For P = Len(sFileName) To 1 Step -1
If InStr( ". ", Mid$(sFileName, P, 1)) Then Exit For
Next
GetFileExt = Right$(sFileName, Len(sFileName) - P)
End Function