![]() |
FlowFact - Entwicklungstools |
![]() |
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 |