Sub Page_Load(sender as Object, e as EventArgs) 'Get list of images Dim dirInfo as New DirectoryInfo(Server.MapPath("")) Dim images() as FileInfo = FilterForImages(dirInfo.GetFiles()) ...
End Sub 其中，用Server.mappath获得当前目录的路径，而dirinfo.getfiles()将会返回该目录下的所有文件。而由于我们的是相册，只需要看到比如JPG，BMP，GIF等图象文件，所以我们可以通过程序实现，只装载这些类型的文件，这通过一个自定义的过程FilterForImages来实现，该过程将只返回指定文件夹中图象类型的文件。代码如下：
Function FilterForImages(images() as FileInfo) as FileInfo() Dim newImages as New ArrayList(images.Length)
Dim i as Integer For i = 0 to images.Length - 1 If Path.GetExtension(images(i).Name) = ".jpg" OrElse _ Path.GetExtension(images(i).Name) = ".jpeg" OrElse _ Path.GetExtension(images(i).Name) = ".png" OrElse _ Path.GetExtension(images(i).Name) = ".gif" then newImages.Add(images(i)) End If Next
Return CType(newImages.ToArray(GetType(FileInfo)), FileInfo()) End Function 该过程对于传递进来的FileInfo参数数组进行遍历，对文件夹中的文件的后缀名进行叛断，如果属于图象文件，则添加到newimages数组中去，并以arraylist形式返回。
注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网] 
