ערכתי לאחרונה בתאריך 03.02.07 בשעה 22:17 בברכה, MeToR
פונקציה שבודקת אם קובץ מסויים קיים בתקייה מסויימת:
Function CheckExist(FilePath As String) As Boolean If Dir(FilePath, 0) = "" Then CheckExist = False Else CheckExist = True End If End Function
|
* אם הקובץ קיים, הפונקציה תחזיר 'אמת', אחרת, תחזיר 'שקר'.והנה הקריאה לפונקציה עם שם המחשב:
CompName=Environ ("computername") FP=כתובת התקייה & CompName if CheckExist(FP) Then msgbox("הקובץ כבר קיים.") else מה שאתה רוצה לעשות במקרה שהקובץ לא קיים... end if
|
בהצלחה
