QueryFileSystem Example for Visual Basic

Public WithEvents RasterTwain As LEADRasterTwain

Private Sub TestTwainFileSystem()
   Dim nRet As Integer
   nRet = RasterTwain.QueryFileSystem(FILESYSTEM_MSG_AUTOMATICCAPTUREDIRECTORY) 
   If nRet <> 0 Then
      MsgBox "Error occurred during call QueryFileSystem"
   End If

   Dim Msg As String
   
   Msg = "Input Name = " + RasterTwain.FileSystemInfo.InputName + Chr(13) + _
         "Output Name = " + RasterTwain.FileSystemInfo.OutputName + Chr(13) + _
         "Recursive = " + RasterTwain.FileSystemInfo.Recursive + Chr(13) + _
         "FileType = " + RasterTwain.FileSystemInfo.FileType + Chr(13) + _
         "FileSize = " + RasterTwain.FileSystemInfo.FileSize + Chr(13) + _
         "CreateTimeDate = " + RasterTwain.FileSystemInfo.CreateTimeDate + Chr(13) + _
         "ModifiedTimeDate = " + RasterTwain.FileSystemInfo.ModifiedTimeDate + Chr(13) + _
         "FreeMediaSpace = " + RasterTwain.FileSystemInfo.FreeMediaSpace + Chr(13) + _
         "NewImageSize = " + RasterTwain.FileSystemInfo.NewImageSize + Chr(13) + _
         "NumberOfFiles = " + RasterTwain.FileSystemInfo.NumberOfFiles + Chr(13) + _
         "NumberOfAudioSnippets = " + RasterTwain.FileSystemInfo.NumberOfAudioSnippets + Chr(13) + _
         "DeviceGroupMask = " + RasterTwain.FileSystemInfo.DeviceGroupMask

   MsgBox Msg
End Sub