scififan

'The following line is the problem. The .f is not a valid member. For Each file In fso.GetFolder(pathstring).f Why not use the following instead of your approach For Each sFolder As String In VideoFolders If My.Computer.FileSystem.DirectoryExists(sFolder) Then For Each sFile As String In My.Computer.FileSystem.GetFiles(sFolder) System.IO.File.Delete(sFile) Next End If Next

If everything is delimited by "*99*" try the following [code] Dim sData() As String sData = myStream.ReadToEnd.Split("*99*") 'Then set each table as you want 'for example Dim oStringReader As New System.IO.StringReader(sData(0)) TestdbDataSet.ReadXml(oStringReader) [/code]