QueryFileSystem Example for Visual Basic

Dim RasterTwain As New LEADRasterTwain_U
Dim nRet As Integer

RasterTwain.InitSession hWnd
RasterTwain.SelectSource

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