Save file Format

Private Sub SaveImageWithDynamicName(ByVal outputStream As ADODB.Stream, ByVal DocumentNo As String, ByVal filename As String)
    Dim fso As Scripting.FileSystemObject
    Dim savePath As String
    Dim currentDate As String

    ' Format the current date
    currentDate = Format(Now, "yyyyMMdd_HHmmss") ' Or format as desired

    ' Construct the save path
    savePath = "C:\MyImages\" & DocumentNo & "_" & currentDate & "_" & filename & ".jpg" ' Replace C:\MyImages with your desired path.

    ' Create the FileSystemObject
    Set fso = New Scripting.FileSystemObject

    ' Check if the directory exists, and create it if not
    If Not fso.FolderExists("C:\MyImages") Then ' Replace C:\MyImages with your desired path.
        fso.CreateFolder ("C:\MyImages")
    End If

    ' Save the file
    outputStream.SaveToFile savePath, adSaveCreateOverWrite

    ' Clean up
    Set fso = Nothing

    MsgBox "Image saved to: " & savePath, vbInformation

End Sub

' Example usage (assuming you have an ADODB.Stream named outputStream, a DocumentNo, and a filename):
Private Sub Command1_Click()
    Dim myStream As ADODB.Stream
    Dim docNo As String
    Dim fileName As String

    'Replace with your stream, document number and filename
    Set myStream = New ADODB.Stream
    myStream.Type = adTypeBinary
    myStream.Open
    'some code to populate the stream with image data
    'example (replace with your actual data):
    myStream.Write StrConv("test", vbFromUnicode)

    docNo = "INV-123"
    fileName = "camera_capture"

    SaveImageWithDynamicName myStream, docNo, fileName

    myStream.Close
    Set myStream = Nothing
End Sub

Hello there! It seems you are trying to save a file in a specific format using VB6.

To achieve the format you described (DocumentNo + currentDate + filename.jpg), you can modify the "outputStream.SaveToFile" line to include the desired format. Here's an example of how you can achieve this in VB6:

Dim documentNo As String
Dim currentDate As String
Dim fileName As String
Dim savePath As String

documentNo = "12345" ' Example DocumentNo
currentDate = Format(Date, "yyyymmdd") ' Current Date formatted as YYYYMMDD
fileName = "example" ' Example file name without extension

savePath = "C:\" & documentNo & currentDate & fileName & ".jpg"

outputStream.SaveToFile savePath

In this snippet, I used placeholders for DocumentNo, currentDate, and fileName. You can replace them with your actual values or variables. The "savePath" variable concatenates these values to form the desired file path including the .jpg extension.

This way, when the file is saved using the modified path, it will follow the format you specified (DocumentNo + currentDate + filename.jpg).

I hope this helps clarify how to save the file in the specified format. If you have any more questions or need further assistance, feel free to ask!