> >'Define the datatype TagloggerFile, used by some of the DLL-functions >Public Type TagloggerFile > filename(1 To 13) As Byte > filelength As Long >End Type > > > >Declare Function Logger_FileUpload Lib "Taglogger.dll" (ByRef filename As TagloggerFile, ByVal data As String) As Long > > > Dim file As TagloggerFile > Dim data As String * 50000 > Dim filename As String > Dim k As Integer > Dim filedata As String > Dim status As Long > > > 'Name and contents of the file to be uploaded to the Taglogger > filename = "dlltest1.txt" > filedata = "This is a test of the Logger_FileUpload function." > > > 'Convert string to array of bytes padded with nullbytes > For k = 1 To 13 > If k <= Len(filename) Then > file.filename(k) = Asc(Mid(filename, k, 1)) > Else > file.filename(k) = 0 > End If > Next > > file.filelength = Len(filedata) > data = filedata > > status = Logger_FileUpload(file, data) > >>