| Single Post |
Topic: Рекурсивная распаковка |
| Author |
Message |
Flasher
|
 Posted: Sun Mar 05, 2017 14:21 Post subject: |
 |
|
Nick
Что-то как-то подозрительно. Проверим. Что покажет?:
| Code: | Folder = "C:\Temp\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path\Long Path"
File = Folder & "\FileName.7z"
CreateObject("Shell.Application").NameSpace("C:\").NewFolder Mid(Folder, 4)
With CreateObject("Scripting.FileSystemObject")
.CreateTextFile File : If .FileExists(File) Then _
MsgBox "Создан файл " & File & vbCr & "с длиной пути " & Len(File) & " символов."
End With |
Также прошу указать пути до скрипта и проблемного архива. Сам архив тоже не помешает. Остальное (не менее важно) по памятке.
К тому же нужно указать на тип выбираемых объектов.
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой. |
|
|
|
 |
|
Powered by phpBB © 2001, 2005 phpBB Group
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
