זקוק לעזרה קטנה בהעתקת קובץ בשפת VBS

[gabi21]

כתבתי סקריפט שאמור להעתיק קובץ מסויים לכול מחשבי הרשת

הבעיה שלי היא שאני רוצה לתת למשתמש לבחור את הקובץ מהמחשב

ורק אז לבצע את ההעתקה אבל כאשר אני מגיע למצב שאני צריך להעביר קובץ שהוא בעצם קיצור דרך לקובץ אחר הוא מעביר

לי את הקובץ המקורי ולא את הקיצור דרך של הקובץ

הנה הסקריפט שאם תשתמשו בוא ותבחרו בקובץ קיצור דרך הוא יראה את ה PATH של המקור ולא של קיצור הדרך

אך אני מקבל את המיקום של קיצור הדרך כדי שאני יוכל להעתיק אותו ליעד אחר?

Dim x

Set ObjFSO = CreateObject("UserAccounts.CommonDialog")

InitFSO = ObjFSO.ShowOpen

If InitFSO = False Then

Wscript.Echo "You did not select a file!"

Wscript.Quit

Else

Wscript.Echo "You selected the file: " & ObjFSO.FileName

End If