שגיאת זמן ריצה VBSCRIPT

[ריקי123]

שלום

אני מנסה להריץ את הסקריפט הבא על המחשב:

Const InstallDir="C:\tz\"

Const AppName="tzHipus.mde"

Const vAppDir="%AppData%\Ztorm"

Const AccRegKey="HKLM\SOFTWARE\Microsoft\Office\11.0\Access\InstallRoot\Path"

dim fs: set fs = CreateObject("Scripting.FileSystemObject")

dim wsh: set wsh = CreateObject("WScript.Shell")

AppDir=Wsh.ExpandEnvironmentStrings(vAppDir)

if AppDir=vAppDir then AppDir="C:\Temp"

if not fs.FolderExists(AppDir) then fs.CreateFolder AppDir

fs.CopyFile fs.BuildPath(InstallDir,AppName), AppDir & "\", True

s="""" & wsh.RegRead(AccRegKey) & "msaccess.exe"""

wsh.Run s & " """ & fs.Buildpath(AppDir,AppName) & """"

ומקבלת שגיאת זמן ריצה בשורה 14:

fs.CopyFile fs.BuildPath(InstallDir,AppName), AppDir & "\", True

שגיאה נתיב לא נמצא 800A004C

אודה לעזרה מהירה!

תודה,

ריקי

[שניצל]

ערכי את ההודעה ושימי את הקוד בתוך טג קוד (כפתור # ליד הכפתור של הציטוט), כדי שיהיה קריא יותר.

ומה אתה מסיקה מהודעת השגיאה?

בדקת שהקובץ שאת מנסה להעתיק אכן קיים? (תדפיסי את המחרוזות)

[ריקי123]

זה הקוד:

 
 Const InstallDir="C:\tz\" 
Const AppName="tzHipus.mde"
Const vAppDir="%AppData%\Ztorm" 
Const AccRegKey="HKLM\SOFTWARE\Microsoft\Office\11.0\Access\InstallRoot\Path"
dim fs: set fs = CreateObject("Scripting.FileSystemObject")
dim wsh: set wsh = CreateObject("WScript.Shell")
AppDir=Wsh.ExpandEnvironmentStrings(vAppDir)
if AppDir=vAppDir then AppDir="C:\Temp"
if not fs.FolderExists(AppDir) then fs.CreateFolder AppDir
fs.CopyFile fs.BuildPath(InstallDir,AppName), AppDir & "\", True
s="""" & wsh.RegRead(AccRegKey) & "msaccess.exe""" 
wsh.Run s & " """ & fs.Buildpath(AppDir,AppName) & """"

סליחה על הבורות, אבל מה אתה מתכוון להעתיק את המחרוזות?

תודה

[שניצל]

לא אמרתי להעתיק, אמרתי להדפיס. תדפיסי את שם הקובץ שאת מנסה להעתיק, את מחרוזת היעד וכו', ותראי שהם תואמים את מה שאת צריכה.

[ריקי123]

איך מדפיסים?

אין לי מושג, זה לא קוד שאני כתבתי.

זה פשוט קובץ התקנה שקיבלתי, ואני לא מצליחה להתקין... ???

[שניצל]

אז תשאלי את מי שנתן לך את הקוד...

[ריקי123]

אין לי דרך לשאול אותו.

אם אתה יכול לעזור - אני אשמח.

ואם לא - אז לא.

[שניצל]

מה הקוד הזה אמור לעשות?

האם יש לך תיקייה בשם C:\tz שבה נמצא הקובץ tzHipus.mde?

[ריקי123]

כן, הקובץ נמצא.

אבל התברר לי מה הבעיה - היה חסר לי שם קובץ אחר.

עכשיו זה עובד

ותודה רבה!!!