(VB.NET) Upload a File to an AI Provider (OpenAI, Google, Antropic, X)

See more AI Examples

Note: This example requires Chilkat v11.4.0 or greater.

Chilkat .NET Downloads Chilkat .NET Framework Chilkat for .NET Core

Dim success As Boolean = False

Dim ai As New Chilkat.Ai

' The provider can be "openai", "google", "claude", "grok", or any AI that supports uploading files for later reference by ID.
ai.Provider = "openai"
' Use your provider's API key.
ai.ApiKey = "MY_API_KEY"

' We can upload directly from a file in the filesystem, or from a Chilkat StringBuilder, or from a Chilkat BinData.

' Some AI providers require a content-type.
' Also, some AI providers are picky about what content-type's are accepted.
' Check the AI provider's documentation.
' "application/json" is generally always acceptable.
' "text/plain" can be used as a fallback for any text file.
Dim contentType As String = "application/json"
Dim localFilePath As String = "qa_data/hamlet.json"
Dim filenameOnServer As String = "hamlet.json"

' Upload directly from a file.
Dim file_id As String = ai.UploadFile(localFilePath,contentType)
If (ai.LastMethodSuccess = False) Then
    Debug.WriteLine(ai.LastErrorText)
    Debug.WriteLine("AI File Upload Failed.")
Else
    Debug.WriteLine("File ID: " & file_id)
    Debug.WriteLine("File uploaded.")
End If


' Upload from the contents of a StringBuilder
Dim sb As New Chilkat.StringBuilder
success = sb.LoadFile(localFilePath,"utf-8")
If (success = False) Then
    Debug.WriteLine(sb.LastErrorText)
    Exit Sub
End If


file_id = ai.UploadFileSb(sb,filenameOnServer,contentType)
If (ai.LastMethodSuccess = False) Then
    Debug.WriteLine(ai.LastErrorText)
    Debug.WriteLine("AI File Upload Failed.")
Else
    Debug.WriteLine("File ID: " & file_id)
    Debug.WriteLine("File uploaded.")
End If


' Upload from the contents of a BinData
Dim bd As New Chilkat.BinData
success = bd.LoadFile(localFilePath)
If (success = False) Then
    Debug.WriteLine(bd.LastErrorText)
    Exit Sub
End If


file_id = ai.UploadFileBd(bd,filenameOnServer,contentType)
If (ai.LastMethodSuccess = False) Then
    Debug.WriteLine(ai.LastErrorText)
    Debug.WriteLine("AI File Upload Failed.")
Else
    Debug.WriteLine("File ID: " & file_id)
    Debug.WriteLine("File uploaded.")
End If