'==========================================================
' Условие: необходим компонент TCScript.dll
' Параметр при необходимости: <имя подкаталога для вставки>
'==========================================================
Option Explicit : Dim REx, Arg, Er, TCH
Set REx = New RegExp : REx.Pattern = "[""/*\\\t:|<>?]"
If WSH.Arguments.Count Then
  Arg = WSH.Arguments(0)
Else Arg = "": Er = vbCr
Do
  Arg = InputBox(vbCr & vbCr & Er & String(3, vbCr) & "Введите вставляемое имя подкаталога:",_
  "Копирование изменённых путей c FTP", Arg) : Er = "Ошибка: введены запрещённые символы!"
  If Not REx.Test(Arg) Then Exit Do
Loop
End If : If Trim(Arg) = "" Then WSH.Quit
Set TCH = CreateObject("TCScript.Helper") : TCH.SendCommand 2018, 1
With REx
  .Global = 1 : .IgnoreCase = 1 : .Pattern = "(^|\n)f(tp://[^/]+/)"
  TCH.SetTextToClip .Replace(TCH.GetTextFromClip, "ht$2" & Arg & "/")
End With
Set TCH = Nothing : Set REx = Nothing