Monarch-LFV
|
Posted: Sun Feb 28, 2021 05:48 Post subject: |
|
|
Немного разобравшись, написал еще один скрипт для плагина, может кому-нибудь пригодится (похож на работу плагина Expander2):
Code: | ' Script for WinScriptAdv content plugin
'
' Разделяет имена папок и файлов по заданному разделителю
'========== Изменяемые параметры =================
Const Separator = " - "
'=================================================
Dim fs, f, fn
on error resume next
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(filename)
fn = f.name ' Имя папки
fn = fs.GetBaseName(filename) ' Имя файла
content = fn ' Полное имя файла
content1 = split(fn, Separator)(0) ' Часть 1
content2 = split(fn, Separator)(1) ' Часть 2
content3 = split(fn, Separator)(2) ' Часть 3 |
|
|