本示例显示最后一个文件转换器的名称。

Dim fcTemp As FileConverter
Set fcTemp = FileConverters(FileConverters.Count)
MsgBox "The file extensions for " & fcTemp.FormatName & _
    " files are: " & fcTemp.Extensions