Серый форум — VBS: Создание папки в 64х разрядной системе

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (Flasher) — Wed, 03 Aug 2016 14:10:17 +0000

TAOSoft
Хорошо. Будем знать.

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (TAOSoft) — Wed, 03 Aug 2016 13:59:24 +0000

Flasher

Верно, показывает Ложь.

а так:


MsgBox CreateObject("Scripting.FileSystemObject").FolderExists("C:\Windows\Sysnative\Test")

показывает Истина.

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (Flasher) — Wed, 03 Aug 2016 13:52:12 +0000

Гуд. Кстати, интересно, если создать в system32 папку Test, такой скрипт Ложь покажет?:

MsgBox CreateObject("Scripting.FileSystemObject").FolderExists("C:\Windows\system32\Test")

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (TAOSoft) — Wed, 03 Aug 2016 13:48:40 +0000

Malcev

Да уважаемый, именно.... Опередили на несколько минут....


Dim SysFolder, NewFolder
SysFolder = "C:\Windows\Sysnative\"
NewFolder = "New_Folder"

Set objShellApp = CreateObject("Shell.Application")
'Set objFolder = objShellApp.NameSpace(SysFolder)
'objFolder.NewFolder(NewFolder)
Set objFolder = Nothing
Set objShellApp = Nothing

Sysnative - решение проблемы!
Спасибо.

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (Malcev) — Wed, 03 Aug 2016 13:44:57 +0000

А если так?

SysFolder = "C:\Windows\sysnative\"

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (TAOSoft) — Wed, 03 Aug 2016 13:28:36 +0000

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (Flasher) — Wed, 03 Aug 2016 13:25:51 +0000

Похоже стандартными средствами эту проблему не обойти. Подробнее.

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (Flasher) — Wed, 03 Aug 2016 13:08:15 +0000

TAOSoft
А что такой скрипт показывает?:

With CreateObject("WScript.Shell")
  .CurrentDirectory = "C:\Windows\System32"
  .PopUp .CurrentDirectory & vbCr & CreateObject("Scripting.FileSystemObject").GetAbsolutePathName("")
End With

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (TAOSoft) — Wed, 03 Aug 2016 12:58:07 +0000

Flasher
Оба из Ваших вариантов создали папку в C:\Windows\SysWOW64.

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (Flasher) — Wed, 03 Aug 2016 12:24:23 +0000

TAOSoft
Тут ещё точки не хватает.

Попробуйте:

SysFolder = "C:\Windows\System32\" -
NewFolder = "New_Folder"

CreateObject("WScript.Shell").CurrentDirectory = SysFolder
CreateObject("Scripting.FileSystemObject").CreateFolder NewFolder

В крайнем случае:

SysFolder = "C:\Windows\System32\"
NewFolder = "New_Folder"
CreateObject("WScript.Shell").Run "cmd /c md " & SysFolder & NewFolder, 0, True

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (TAOSoft) — Wed, 03 Aug 2016 12:20:53 +0000

Flasher
Я учел Ваше замечание, оно было уместным.... Надеюсь, что на текущий момент оформление Вас устаревает.

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (Flasher) — Wed, 03 Aug 2016 12:12:36 +0000

TAOSoft
Я понимаю, что открытый. Моя задача - ждать ваших действий. Вариант "на будущее" не про данный форум, так уж сложилось. См. концовку по ссылке.

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (TAOSoft) — Wed, 03 Aug 2016 12:07:53 +0000

Flasher
Понял, принял.... На будущее учту Ваше замечание…
ypppu Спасибо Вам добрый человек...

Но вопрос все же открытый....

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (Flasher) — Wed, 03 Aug 2016 12:00:00 +0000

TAOSoft, Вам бы посты поправить.

ypppu частично помог (с заголовком), а стоило таки эту ссылочку дать.

Re: VBS: Создание папки в 64х разрядной системе

null@example.com (TAOSoft) — Wed, 03 Aug 2016 11:47:08 +0000

Папка создалась в C:\Windows\SysWOW64.