نحوه نشان دادن تعداد عکسهای یک پوشه در لیبل

[RezaAli 106]

سلام دوستان

چجوری میشه تعداد عکس های داخل یک پوشه رو در یک label نشان داد؟؟؟؟؟؟؟؟

 

[shahab.es 5,429]

سلام

یه تست بزنید

من تست نکردم

 

Dim l As List
l.Initialize
l = File.ListFiles(File.DirInternal)
Dim str As String
Dim int1 As Int = 0
For i = 0 To l.Size - 1
	str = l.Get(i)
	If str.Contains(".jpg") Or str.Contains(".png") Then
		int1 = int1 + 1
	End If
Next
Dim str2 As String = int1
lbl.text = str2 

[R0YA 21]

 

سلام

یه تست بزنید

من تست نکردم

 

Dim l As List
l.Initialize
l = File.ListFiles(File.DirInternal)
Dim str As String
Dim int1 As Int = 0
For i = 0 To l.Size - 1
	str = l.Get(i)
	If str.Contains(".jpg") Or str.Contains(".png") Then
		int1 = int1 + 1
	End If
Next
Dim str2 As String = int1
lbl.text = str2 

سلام 

من تازه کارم 

این کد ها رو باید کجا پیست کنم؟؟؟؟

[RezaAli 106]

سلام 

من تازه کارم 

این کد ها رو باید کجا پیست کنم؟؟؟؟

 

باید تو ساب activity_create پیست کنی

[RezaAli 106]

 

سلام

یه تست بزنید

من تست نکردم

 

Dim l As List
l.Initialize
l = File.ListFiles(File.DirInternal)
Dim str As String
Dim int1 As Int = 0
For i = 0 To l.Size - 1
	str = l.Get(i)
	If str.Contains(".jpg") Or str.Contains(".png") Then
		int1 = int1 + 1
	End If
Next
Dim str2 As String = int1
lbl.text = str2 

 

ممنون از کمکتون   

کار کرد.

حالا اگه بخوام عکس های داخل پوشه ی DCIM رو نشون بدم، باید چی کار کنم؟؟؟؟

[Kazem Forghani 2,928]

ممنون از کمکتون   

کار کرد.

حالا اگه بخوام عکس های داخل پوشه ی DCIM رو نشون بدم، باید چی کار کنم؟؟؟؟

سلام ،

خط سوم رو به این صورت تغییر بدید:

l = File.ListFiles(File.DirRootExtrnal & "/DCIM")

موفق باشید

[RezaAli 106]

سلام ،

خط سوم رو به این صورت تغییر بدید:

l = File.ListFiles(File.DirRootExtrnal & "/DCIM")

موفق باشید

 

ممنون از کمکتون 

اما چرا اینجوری میشه

[امین شاهدی 5,777]

DirRootExtrnal رو اشتباه نوشتین ، DirRootExternal بنویسین