Flasher
|
 Posted: Wed Mar 02, 2016 13:29 Post subject: |
 |
|
| StNff wrote: | | можно ли это как-то настроить? |
Очистить путь запуска и
 вот это кусок | Code: | For Each F in Split(.OpenTextFile(List,,,-1).ReadAll, L)
If F > vbNullString Then
If .FileExists(F) Then Text = Text & L & " <li><a href=""" &_
F & """ div class='l'>" & vbTab & Bef & .GetFileName(F) & Aft & "</a><br></li>"
End If
Next |
этот | Code: | Ln = Len(.GetAbsolutePathName("")) + 2
Set File = .OpenTextFile(List,,,-1)
Do : F = File.ReadLine : If .FileExists(F) Then _
F = Mid(F, Ln) : Text = Text & L & " <li><a href="".\" & F &_
""" div class='l'>" & vbTab & Bef & F & Aft & "</a><br></li>"
Loop Until File.AtEndOfStream : File.Close |
| StNff wrote: | | только пока не понятно, как это будет выглядеть |
>>> | Code: | <Путь родительской папки 1>\
<Имя файла 1>
<Имя файла 2>
<Путь родительской папки 2>\
<Имя файла 1>
<Имя файла 2> |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
