Access图片管理系统

todaynew

不必将图片地址放到表中管理，可用一组合框或列表框列出图片文件夹中的地址列表即可。具体方法可参见《图片调整》一文。

Private Sub Form_Load()
Dim myFSO As New FileSystemObject
Dim myFolder As Folder
Dim myfile As File
Dim str As String
If myFSO.FolderExists(CurrentProject.Path & "\相片") = True Then
    Set myFolder = myFSO.GetFolder(CurrentProject.Path & "\相片")
    For Each myfile In myFolder.Files
        str = str & myfile.Name & ";"
    Next myfile
Else
    MsgBox "文件夹不存在！"
End If
Me.相片名称.RowSource = str
Me.图片.Picture = ""
Me.图片.SizeMode = acOLESizeZoom
End Sub