расщепление имя с использованием символов

Question

у меня есть разные имена файлов, которые я хочу разделить так бывший Contents.js jQuery.10.1.js Main.css

Может кто-нибудь сказать мне, как я могу получить расширенную часть из эти файлы, такие как js или css .i, использовали функцию split и использовали. charatcer, но он не работает в jquery.10.1.js.

Answer 1

Используйте правильный инструмент - .GetExtensionName() - для работы:

>> Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject") 
>> Dim aTests : aTests = Split("Contents.js jQuery.10.1.js Main.css") 
>> Dim sFiNa 
>> For Each sFiNa In aTests 
>>  WScript.Echo sFina 
>>  WScript.Echo oFS.GetExtensionName(sFiNa) 
>> Next 
>> 
Contents.js 
js 
jQuery.10.1.js 
js 
Main.css 
css