![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | OBJ_Bild_Set(ByVal rsOBJ As ADODB.Recordset, ByVal strSourceFileName As String, ByVal intIndex As Long, ByVal strBezeichnung 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. strSourceFilename: Datei- und Pfadangabe zur Bilddatei intIndex: =0 Kurzexpose; >0 Langexpose strBezeichnung: Bildtext z.B. Rückansicht Public Sub OBJ_Bild_Set(ByVal rsOBJ As ADODB.Recordset, ByVal strSourceFileName As String, ByVal intIndex As Long, ByVal strBezeichnung As String) Dim strFileExt As String Dim strDestinationFileName As String strFileExt = m_oUtil.GetFileExtender(strSourceFileName) strDestinationFileName = OBJ_Bild_MakeFileName(rsOBJ, intIndex, strBezeichnung, strFileExt) m_oFS.CopyFile strSourceFileName, strDestinationFileName, True End Sub |