این برنامه از تصاویر درون یک پوشه خاص لیست اچ تی ام ال درست میکنه
فقط باید آدرس مسیر حاوی عکسها و فرمت اونهارو به تابع زیر ارسال کنید:
Public Sub convert(path As String, pattern As String)
On Error GoTo z
Open path + "\List.html" For Output As 1
Print #1, "<HTML>"
Print #1, "<HEAD>"
Print #1, "<TITLE>" & path & "</TITLE>"
File1.path = path
File1.pattern = pattern
For i = 0 To File1.ListCount
If File1.List(i) = "" Then Exit Sub
s = File1.path + "\" + File1.List(i)
x = "<A href="" & s & """ & "><IMG WIDTH=100 HEIGHT=100 SRC="" & s & ""></a>"
Print #1, x
Next i
Exit Sub
z:
MsgBox Err.Deion
End Sub
دانلود 
نوشته شده توسط مهدی در چهارشنبه 88/9/25 و ساعت 4:21 عصر | نظرات دیگران()
