Папка с именем Unicode показывает ? в приглашении wscript

Похоже, это проблема, характерная для Расширение оболочки DropHandler. Тогда как:

test.vbs "C:\포미닛.txt"
C:\WINDOWS\System32\WScript.exe "test.vbs" "C:\포미닛.txt"

оба работают при вводе с консоли (даже если консоль не может отображать хангыль, поэтому он выглядит как ?), операция перетаскивания, которая должна привести к одной и той же команде, проходит через перевод Unicode-> ANSI-> Unicode, который теряет все символы, которых нет в текущей кодовой странице ANSI. (Поэтому 포미닛 будет работать с установленной по умолчанию корейской Windows, но не с западной.)

Я не знаю, как правильно решить проблему. Возможно, вы могли бы обойти это, изменив DropHandler для файлов .vbs в реестре:

HKEY_CLASSES_ROOT\VBSFile\ShellEx\DropHandler\(Default)

от WSH DropHandler ({60254CA5-953B-11CF-8C96-00AA00B8708C}) до {86C86720-42A0-1069-A2E8-08002B30309D}, используемого для .exe, .bat и подобных, который не страдает от этой проблемы. Вам также, вероятно, придется изменить ассоциацию файлов для .vbs, чтобы также заключать в кавычки аргумент имени файла, поскольку EXE DropHandler этого не делает, чтобы избежать проблем с пробелами в именах файлов.

Поскольку это влияет на передачу аргументов для всех файлов VBS, было бы рискованно развертывать исправление на любой машине, кроме вашей. Если вам нужно это сделать, возможно, вы могли бы попробовать создать новое расширение файла с соответствующим DropTarget, а не изменять сам VBSFile? Или, может быть, отказаться от поведения drop-on-to-script и вместо этого предоставить диалоговое окно открытия файла или поле ручного перетаскивания.

Для всех, кто попадает сюда из Google...

Совет Бобинса помог мне обойти эту проблему, поместив мой файл vbscript (myscript.vbs) в пакетный файл DOS (mybatch.bat).

Совет был:

«Кажется, это проблема, характерная для расширения оболочки DropHandler Windows Script Host, тогда как… тот, который используется для .exe, .bat и подобных… не страдает от этой проблемы».

mybatch.bat содержит:

:Loop
IF "%1"=="" GOTO Continue
     set allfiles=%allfiles% "%1"
SHIFT
GOTO Loop
:Continue
"myscript.vbs" %allfiles%

Вы также можете найти этот код из моего myscript.vbs, чтобы быть полезным

For Each strFullFileName In Wscript.Arguments
  ' do stuff
Next

Основываясь на ответе DG, если вы просто хотите принять один файл в качестве цели перетаскивания, вы можете написать пакетный файл (если он у вас называется «x.bat», поместите VBScript с именем файла «x.bat.vbs» в ту же папку) который просто содержит:

@"%0.vbs" %1

@ означает, что строка не выводится на дисплей (я обнаружил, что она показывает мусорный текст, даже если вы используете chcp 1250 в качестве первой команды)

не используйте двойные кавычки вокруг %1, это не сработает, если ваш VBScript использует логику, подобную следующей (код, который я использовал ниже, был взят из http://jeffkinzer.blogspot.com/2012/06/vbscript-to-convert-excel-to-csv.html< /а>). Протестировал его, и он отлично работает с пробелами в именах файлов и папок:

  Dim strExcelFileName
  strExcelFileName = WScript.Arguments.Item(0) 'file name to parse

  ' get path where script is running
  strScript = WScript.ScriptFullName
  Dim fso
  Set fso = CreateObject ("Scripting.FileSystemObject") 
  strScriptPath = fso.GetAbsolutePathName(strScript & "\..")
  Set fso = Nothing

  ' If the Input file is NOT qualified with a path, default the current path
  LPosition = InStrRev(strExcelFileName, "\")
  if LPosition = 0 Then 'no folder path
    strExcelFileName = strScriptPath & "\" & strExcelFileName
    strScriptPath = strScriptPath & "\"
  else 'there is a folder path, use it for the output folder path also
    strScriptPath = Mid(strExcelFileName, 1, LPosition)
  End If
  ' msgbox LPosition & " - " & strExcelFileName & " - " & strScriptPath

Измените WSH DropHandler ({60254CA5-953B-11CF-8C96-00AA00B8708C}) на {86C86720-42A0-1069-A2E8-08002B30309D} и добавьте эту функцию для преобразования короткого пути в длинный:

Function Short2Long(shortFullPath)
    dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFile(shortFullPath)
    Set app = CreateObject("Shell.Application")
    Short2Long = app.NameSpace(f.ParentFolder.Path).ParseName(f.Name).Path
end function