Volniy
|
 Posted: Fri Jul 25, 2008 10:32 Post subject: |
 |
|
А проверить? Если у файла нет расширения этот метод возвращает пустую строку. Просто выполни вот такой VBS
| Code: | MsgBox GetAnExtension("c:\noname")
Function GetAnExtension(DriveSpec)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
GetAnExtension = fso.GetExtensionName(Drivespec)
End Function |
и убедись в этом.
И потому вот такой блок в твоем скрипте будет вполне работоспособен:
| Code: | If WScript.Arguments.Count > 0 Then 'запуск без параметров переключает последний фильтр
sFilter = WScript.Arguments(0)
Set FSO = CreateObject("Scripting.FileSystemObject")
If FSO.FileExists(sFilter) Then sFilter = "*." & FSO.GetExtensionName(sFilter)
TCS.INIWrite WScript.ScriptFullName, "sFilter", "sFilter", Chr(34) & sFilter & Chr(34) 'запомнить фильтр
End If
|
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
