Flasher
|
 Posted: Tue Oct 25, 2011 01:12 Post subject: |
 |
|
JKT
Не надо дублировать, убери код, верю.
Если выполнить (можно из панели) такой скрипт
| Code: | CD = CreateObject("WScript.Shell").CurrentDirectory & "\"
List = Chr(241)&Chr(239)&Chr(232)&Chr(241)&Chr(238)&Chr(234)
CreateObject("Scripting.FileSystemObject").OpenTextFile(CD & List & ".html", 2, True, -1).Write List |
, в папке со скриптом созданный файл с кракозябрами будет?
Если да, то у меня для твоего случая нет других мыслей кроме как заменить на латиницу.
Убери то, что красным:
| Quote: | For Each F in Split(.OpenTextFile(List,,,-1).ReadAll, L)
....
.OpenTextFile(TDir & "Список_файлов.html", 2, True, -1).Write "<head>" &_ |
И замени "Ссылки на файлы" на что-то своё, например, "Links to files". |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
