רוטר - שאלה , תיקיות בביסיק VB

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

"שאלה , תיקיות בביסיק VB"

גירסת הדפסה

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

אשכול מספר 7743

purkan

00:13 10.01.04

שאלה , תיקיות בביסיק VB

חברה עם הפקודה Dir("h:\", vbDirectory)
נגיד ויש לי בתיקייה הגדולה תיקיות בשמות:
ali
gohhp
gbbn
dsa

אז אם אני עושה מערך, או סתם שהוא יציג לי את השם של התיקיה הראשונה הוא מתחיל מ gohhp והוא אף פעם לא מתחיל מן התיקיה הראשונה , הוא בכלל לא סופר אותה,,למה בבקשה?

שתף

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

האשכול	מחבר	תאריך כתיבה	מספר
תשובה	gad	12.01.04 00:29	1
תודה אבל החלטתי לעשות ככה:	purkan	12.01.04 14:50	2

gad

00:29 12.01.04

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

את שמות התיקיות תקרא מהמערכת, אני הכנסתי אותם ידנית וזו התוצאה
Dim arr(5) As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
arr(1) = "ali"
arr(2) = "gohhp"
arr(3) = "gbbn"
arr(4) = "dsa"
TextBox1.Text = arr(1)
TextBox2.Text = arr(2)
TextBox3.Text = arr(3)
TextBox4.Text = arr(4)

End Sub
בהצלחה גד

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

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

purkan

14:50 12.01.04

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

i = 0
ReDim fo(i)
dird = Dir(x, vbDirectory Or vbNormal Or vbArchive Or vbHidden Or vbSystem Or vbReadOnly Or vbVolume)
Do While Len(dird) > 0
If (dird <> ".") Then
If GetAttr(x & dird) And vbDirectory Then
fo(i) = dird
counter = counter + 1
i = i + 1
ReDim Preserve fo(i)
End If
End If
dird = Dir()
Loop

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

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