שלום

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

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

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

תודה,

ריקי

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

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

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

זה הקוד:

 
 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) & """"

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

תודה

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

איך מדפיסים?

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

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

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

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

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

ואם לא - אז לא.

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

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

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

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

עכשיו זה עובד

ותודה רבה!!!