FlowFact - Entwicklungstools

zurück

Function - OBJ_Bild_Get
Objektbild abfragen

  Function OBJ_Bild_Get(ByVal rsOBJ As ADODB.Recordset, ByVal intIndex As Long) As String  
 


rsObj: Recordset, das von OBJ_New oder OBJ_Find_XXX zurückgegeben wurde. Auch ein 'm_oBase.FF_GetRecordset("SELECT * FROM OBJ ...")' ist möglich.
intIndex: =0 Kurzexpose; >0 Langexpose
Rückgabe: Datei- und Pfadangabe zur Bilddatei


Public Function OBJ_Bild_Get(ByVal rsOBJ As ADODB.Recordset, ByVal intIndex As Long) As String
    Dim strFileName As String
    Dim strPath As String
    Dim oFolder As Scripting.Folder
    Dim oFile As Scripting.File
    Dim intLen As Long

    strFileName = OBJ_Bild_MakeFileName(rsOBJ, intIndex, "", "")

    strPath = m_oFS.GetParentFolderName(strFileName)
    strFileName = UCase(m_oFS.GetFileName(strFileName))
    intLen = Len(strFileName)

    Set oFolder = m_oFS.GetFolder(strPath)
    For Each oFile In oFolder.Files
        If UCase(Mid(oFile.Name, 1, intLen)) = strFileName Then
            OBJ_Bild_Get = m_oFS.BuildPath(strPath, oFile.Name)
            Exit Function
        End If
    Next

    OBJ_Bild_Get = ""
End Function