[la_vanille_ciel]

Только что где-то прочитала, что cmd работают с unc путями, подскажите, как это реализовать.

[la_vanille_ciel]

Set fileFSO = CreateObject("Scripting.FileSystemObject")
source_file = "\\Apu18s\Shell\civil3D_2007_net\acad2000.lsp"
dest_file = "%ProgramFiles%\\Autodesk Civil 3D 2007\\Graph\\acad.lsp"
fileFSO.CopyFile source_file, dest_file , true



Примерно таким должен быть файл, но не работает dest_file, как исправить?

[Petya V4sechkin]

Только что где-то прочитала, что cmd работают с unc путями, подскажите, как это реализовать.

Код:

Copy /Y "\\Apu18s\Shell\civil3D_2007_net\acad2000.lsp" "%ProgramFiles%\Autodesk Civil 3D 2007\Graph\acad.lsp"

[la_vanille_ciel]

Спасибо за ответ, но не получилось....вобщем так: у меня автокад 2007 стоит в Program Files, а сист перем %Program Files% = Programs.... то есть надо узнать в этом скрипте, где стоит автокад.....сорри, я наверно, не очень правильно объяснила первый раз..

и даже если явно задать Program Files, то все равно не копируется (((((

[Petya V4sechkin]

la_vanille_ciel, тогда придется брать из реестра.
Выясните, в каком параметре и разделе прописан путь.

Например у 2006-го (русского) это AcadLocation в ветке HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R16.2\ACAD-4001:419

А у 2007-го?

[la_vanille_ciel]

у 2007 это будет так же, только R 17.0 ...

я нашла скрипт чтения этого пути в реестре, но есть две проблемы с ним:
1) он не совсем рабочий:
Const HKEY_LOCAL_MACHINE = &H80000002
strComputer = "."
Set objReg = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & _
strComputer & "\root\default:StdRegProv")
strKeyPath = "Software\Autodesk"
objReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys
For Each subkey In arrSubKeys
If subkey = "AutoCAD" Then
find = True
Path_reg = strKeyPath & "\" & subkey
Exit For
End If
Next
If Not find Then
For Each subkey In arrSubKeys
If subkey = "Adobe Acrobat" Then
find = True
Path_reg = strKeyPath & "\" & subkey
Exit For
End If
Next
End If
If Not find Then
execute_programm_path = ""
Exit Function
Else
objReg.EnumKey HKEY_LOCAL_MACHINE, Path_reg, arrSubKeys
For Each subkey In arrSubKeys
Version_Acr = subkey
Next
End If
objReg.GetStringValue HKEY_LOCAL_MACHINE, Path_reg & "\" & Version_Acr & "\InstallPath\", "", dwValue
execute_programm_path = dwValue
(ругается на exit и еще что-то...)
2) как потом его положить в скрипт, в котором написано копирование:
Set fileFSO = CreateObject("Scripting.FileSystemObject")
source_file = "\\Apu18s\Shell\civil3D_2007_net\acad2004.lsp"
dest_file = "C:\Program Files\Autodesk Civil 3D 2007\Graph\acad.lsp"
fileFSO.CopyFile source_file, dest_file , true
(примерный скрипт копирования vbs, только dest_file не работает).

аа...наврала,
будет: HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419

[Petya V4sechkin]

HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419

Какое значение AcadLocation?

[la_vanille_ciel]

HKEY_LOCAL_MACHINE\SOFTWARE\Autodesk\AutoCAD\R 17.0\ACAD-5000:419 - такое у 2007

[la_vanille_ciel]

AcadLocation = C\ProgramFiles\Autodesk Civil 3D 2007