![]() |
FlowFact - Entwicklungstools |
![]() |
Function | OBJ_Bild_MakeFileName(ByVal rsOBJ As ADODB.Recordset, ByVal intIndex As Long, ByVal strBezeichnung As String, ByVal strFileExt As String) 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 strBezeichnung: Bildtext z.B. Rückansicht strFileExt: Dateierweiterung der Bilddatei z.B. ".jpg" Rückgabe: Datei- und Pfadangabe zur Bilddatei Public Function OBJ_Bild_MakeFileName(ByVal rsOBJ As ADODB.Recordset, ByVal intIndex As Long, ByVal strBezeichnung As String, ByVal strFileExt As String) As String Dim strType As String Dim strDatei As String Dim strResult As String If intIndex < 0 Then Exit Function End If strDatei = Trim(m_oUtil.k(rsOBJ("Datei").value)) While Mid(strDatei, 1, 1) = "\" strDatei = Mid(strDatei, 2) Wend If strDatei <> "" Then While Mid(strDatei, Len(strDatei), 1) = "\" strDatei = Mid(strDatei, 1, Len(strDatei) - 1) Wend End If If strFileExt <> "" And Mid(strFileExt, 1, 1) <> "." Then strFileExt = "." & strFileExt End If If intIndex = 0 Then strType = OBJ_Bild_StdBezKurz Else strType = OBJ_Bild_StdBezLang & CStr(intIndex) End If strResult = strDatei & "-" & strType & "#" & strBezeichnung & strFileExt strResult = FlowFact_Folder & "\pic.obj\" & strResult OBJ_Bild_MakeFileName = strResult End Function |