Batya
|
 Posted: Fri Oct 03, 2008 10:44 Post subject: |
 |
|
| Worros wrote: | | Была надежда, что кто-то знает простое "заветное слово", а придётся всё же ковыряться. |
Есть такое "заветное слово"  : | CaptainFlint wrote: | | Script_wdx? |
Легко:
| Code: | '===========================================================================
' Колонка Result3 возвращает имя файла\папки, начиная с заданной позиции
'===========================================================================
'========== Изменяемые параметры ===========================================
StartPos = 3 'Начальная позиция возврата имени
'===========================================================================
Dim FSO
Set FSO = CreateObject("Scripting.FileSystemObject")
content3 = Result3
Set FSO = Nothing
Function Result3
Result3 = Mid(FSO.GetFileName(filename), StartPos)
End Function |
Вместо content3 (это у меня такой следующий номер) можешь поставить другой номер колонки (content, content1, ... , content9).
_________________
Нет, я не сплю. Я просто медленно моргаю. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
