گرفتن لیست فایل ها با پسوند خاص

[amir00700 66]

من میخوام مثلا فایل هایی که با فرمت jpg هستن رو تو ی مسیری مثل sdcard/test هستن رو بگیرم و اپلود کنم

اپلودش رو میتونم با پست فایل انجام بدم فقط این که چطور بگیرم و بگم تو حلقه فور تمام فایل های این ادرس اپ بشن

[alirezakazemizaroomi 437]

سلام

 

;کداش:

Dim l As List
l=File.ListFiles(File.DirRootExternal&"/اسم پوشه" )
For i=0 To l.Size-1
Dim n As String
n=l.Get(i)


If n.EndsWith(".png") OR n.EndsWith(".jpg") Then
ListView1.AddSingleLine(n)
End If
Next

[amir00700 66]

 

سلام

 

;کداش:

Dim l As List
l=File.ListFiles(File.DirRootExternal&"/اسم پوشه" )
For i=0 To l.Size-1
Dim n As String
n=l.Get(i)


If n.EndsWith(".png") OR n.EndsWith(".jpg") Then
ListView1.AddSingleLine(n)
End If
Next

ینی من بخوام دونه دونه اپ کنم اینطوریه کدش؟

	Dim hh As HttpJob
	(hh.Postfile("link daryaft",File.DirRootExternal&"/test/"&n,n

[amir00700 66]

استاد جواب من؟

[پژمان نیکروان 6,055]

استاد جواب من؟

بله اینطوری:

Dim hh As HttpJob
hh.Initialize("hh",Me)
hh.Postfile("link daryaft",File.DirRootExternal&"/test/",n)