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

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

2016-08-03T14:10:17Z

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

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

2016-08-03T13:59:24Z

Flasher

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

а так:


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

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

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

2016-08-03T13:52:12Z

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

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

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

2016-08-03T13:48:40Z

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х разрядной системе

2016-08-03T13:44:57Z

А если так?

SysFolder = "C:\Windows\sysnative\"

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

2016-08-03T13:28:36Z

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

2016-08-03T13:25:51Z

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

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

2016-08-03T13:08:15Z

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

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

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

2016-08-03T12:58:07Z

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

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

2016-08-03T12:24:23Z

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х разрядной системе

2016-08-03T12:20:53Z

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

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

2016-08-03T12:12:36Z

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

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

2016-08-03T12:07:53Z

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

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

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

2016-08-03T12:00:00Z

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

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

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

2016-08-03T11:47:08Z

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