Sadyrbaev
|
 Posted: Wed Jul 06, 2022 12:23 Post subject: |
 |
|
| Flasher wrote: | | Code: | '=================== VBS =================
' Скопировать полные имена с прямым слэшем
' Параметры: %Z%WL
'=========================================
If WSH.Arguments.Count Then List = WSH.Arguments(0) Else WSH.Quit
Set FSO = CreateObject("Scripting.FileSystemObject")
All = Replace(FSO.OpenTextFile(List,,,-1).ReadAll, "\", "/")
With CreateObject("SAPI.SpFileStream")
.Format.Type = 1 : .Open List, 3 : .Write All : .Close
End With
CreateObject("WScript.Shell").Run "%ComSpec% /c clip<" & List, 0 |
|
Не подскажите новичку в тотале что с этим кодом делать? мне нужно то же самое, прямой слеш. |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
