获取文件扩展名vba

Question

我需要将文件的扩展名存储在VBA中的变量中，我现在所做的是

file= Hello.pdf
extension = split(file,".")(1)

但有时我的文件可能会像file = 1.Filename.pdf这样，所以我的扩展变量不再起作用......

有人可以帮助我找到一个解决方案，始终从任何文件名获取扩展名，即使它们是多个“.” 在里面。

我有一个想法，那就是从右向左读取，并在读取“.”时获取字符串。但我是 VBA 新手，不知道从哪里开始......

Answer 1

尝试，

Dim vFn As Variant

file = "Hello.pdf"

vFn = Split(file, ".")
extension = vFn(UBound(vFn))