רוטר - עזרה בקשר לmsgbox בויזואל בייסיק

יומן פעילות	לוח שנה	מבזקי חדשות	תקנון	RSS	כותרות	כותרות לפי תגובה	ניקוי קוקיז	IP	להורדת אפליקציה
eBay	AliExpress	GearBest	Amazon	Booking	Kiwi	SkyScanner	Trip Advisor

"עזרה בקשר לmsgbox בויזואל בייסיק"

גירסת הדפסה

קבוצות דיון פיתוח, תיכנות ובניית אתרים נושא #5051	מנהל סגן המנהל מפקח Winner צל"ש מומחה

אשכול מספר 5051

dfxhgasdfhg

23:55 09.02.03

עזרה בקשר לmsgbox בויזואל בייסיק

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

תודה לעוזרים!

שתף

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

האשכול	מחבר	תאריך כתיבה	מספר
אם אתה עובד בסביבת ויבי שש..	OX2002	10.02.03 10:53	1
הבעייה שלך היא לא הטיפול הסופי בשגיאה	codmaster	10.02.03 13:25	2
באופן כללי אני מסכים איתך	Faculty	13.02.03 19:49	3
פונקציה לבדוק אם הקובץ קיים	dyermaker	14.02.03 06:24	4

OX2002

10:53 10.02.03

1. אם אתה עובד בסביבת ויבי שש..
בתגובה להודעה מספר 0

עבר עריכה לאחרונה בתאריך 10.02.03 בשעה 10:54

on error goto er
כול תוכן הכפתור או מה שזה לא יהיה
exit sub
er:
msgbox"blalbllla"
ופה מה שאתה רוצה שהוא יעשה
end sub
כל זה כמובן בתוך מסגרת כלשהי שלכפתור או משהו כזה

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

codmaster

13:25 10.02.03

2. הבעייה שלך היא לא הטיפול הסופי בשגיאה
בתגובה להודעה מספר 1

עבר עריכה לאחרונה בתאריך 10.02.03 בשעה 13:27

כי אז באמת הדבר הכי פשוט לעשות הוא on error בלה בלה
מה שחשוב הוא שתצליח לתפוס את סוג השגיאה ואז תוכל לנתב את הטיפול בשגיאה
להודעה ספציפית (זאת במידה ואתה רוצה קצת מקצועיות בתכנית שלך)
במקרה שלך הבעייה שלך היא הפנייה "לא חוקית" לקובץ - שאינו קיים
כלומר מה שעלייך לעשות הוא לוודא לפני הפעולה שהקובץ אכן קיים ואם כן ,
תבצע את פעולת הפתיחה שלו (זו הדרך הנכונה).
בשביל לודא אם קובץ קיים או לא ישנן מספר אפשרויות , האפשרות המועדפת
עליי היא שימוש ב- filesystemobject , אובייקט זה מכיל מספר פונקציות
חזקות לעבודה עם קבצים , אחת מהן היא וידוא אם קובץ קיים בנתיב מסויים
קוד לדוגמא :

dim fso : set fso = server.createObject("Scripting.fileSystemObject")
if fso.FileExists("youfilename.yourtype") then
all ok
else
redirect to an Error handler
end if

אני מקווה שיותר ברור לך , אם יש לך בעיות פנה אליי בדוא"ל :
[email protected]
עדן.

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

Faculty

19:49 13.02.03

3. באופן כללי אני מסכים איתך
בתגובה להודעה מספר 2

שצריך לבצע בדיקות תקינות ולא לחכות ל Errors
אבל במקרה הספציפי הזה, יהיה יותר יעיל ופשוט לתפוס
שגיאה מאשר ליצור אובייקט להשתמש ולשחרר רק בשביל
המטרה הזו

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד

dyermaker
חבר מתאריך 4.2.03
1644 הודעות

06:24 14.02.03

4. פונקציה לבדוק אם הקובץ קיים
בתגובה להודעה מספר 3

עבר עריכה לאחרונה בתאריך 14.02.03 בשעה 06:28

Public Function isexist(filen As String) As Boolean
Dim result As String
isexist = False
result = Dir(filen)
If result <> "" Then isexist = True
End Function

לדעתי זה פותר הרבה כאבי ראש מיותרים

(ניהול: מחק תגובה)

מכתב זה והנלווה אליו, על אחריות ועל דעת הכותב בלבד