Read all file content

Saturday, July 4th, 2009

Imports System.IO

Module Module1

    Sub Main()
        Dim TextFile As StreamReader

        Try
            TextFile = New StreamReader("test.txt")
        Catch E As Exception
            Console.WriteLine("Error opening the file test.txt")
            Console.WriteLine("Error {0}", E.Message)
        End Try

        Dim Content As String

        Try
            Content = TextFile.ReadToEnd()
            Console.WriteLine(Content)
        Catch E As Exception
            Console.WriteLine("Error reading file")
            Console.WriteLine("Error {0}: ", E.Message)
        End Try

        TextFile.Close()

    End Sub

End Module

           
       

Posted in Uncategorized | No Comments »

Get all exe files (VB)

Saturday, July 4th, 2009

<%@ Page Language="VB" %>
<%@ import Namespace="System.IO" %>
<script runat="server">
  Sub Page_Load(Sender As Object, E As EventArgs)
    If Not IsPostBack Then

      Dim FileCollection As String()
      Dim myFileInfo As FileInfo
      Dim i as integer
      
      FileCollection = Directory.GetFiles("C:\WINNT","*.exe")
      For i = 0 To FileCollection.Length - 1
        myFileInfo = New FileInfo(FileCollection(i))
        FileListBox.Items.Add(new ListItem(myFileInfo.Name.ToString()))
      Next
    End If
  End Sub
</script>
<html>
  <head>
  </head>
  <body>
<form runat="server">
  EXE Files in Folder C:\WINNT:
  <asp:ListBox id="FileListBox" Runat="Server" />
</form>
  </body>
</html>

 

Posted in Uncategorized | No Comments »