CodeXchange: Top Rated Snippets

Get Short and Long Path Names

J B — Thu, 26 Jan 2006 09:22:01 GMT

    Private Declare Auto Function GetShortPathName Lib "kernel32.dll" (ByVal strLongPath As String, ByVal objStringBuilder As System.Text.StringBuilder, ByVal intBufferSize As Integer) As Integer
    Private Declare Auto Function GetLongPathName Lib "kernel32.dll" (ByVal strShortPath As String, ByVal objStringBuilder As System.Text.StringBuilder, ByVal intBufferSize As Integer) As Integer

    Public Enum DirectoryPathLength
        WindowsXP = 256
    End Enum

    Public Function GetShortPathName(ByVal strPath As String, Optional ByVal enumDirectoryPathLength As DirectoryPathLength = DirectoryPathLength.WindowsXP) As String
        Dim strStringBuilder As New System.Text.StringBuilder(enumDirectoryPathLength)
        Dim intNewStringLength As Integer
        intNewStringLength = GetShortPathName(strPath, strStringBuilder, enumDirectoryPathLength)
        Return strStringBuilder.ToString
    End Function

    Public Function GetLongPathName(ByVal strPath As String, Optional ByVal enumDirectoryPathLength As DirectoryPathLength = DirectoryPathLength.WindowsXP) As String
        Dim strStringBuilder As New System.Text.StringBuilder(enumDirectoryPathLength)
        Dim intNewStringLength As Integer
        intNewStringLength = GetLongPathName(strPath, strStringBuilder, enumDirectoryPathLength)
        Return strStringBuilder.ToString
    End Function

Sending Mail through authenticated SMTP server

Prasad GVL — Thu, 02 Jun 2005 00:38:01 GMT

///

/// Prepares and sends an EMail ///

One Way Hash for strings

Patrick Bounaix — Thu, 19 May 2005 16:18:28 GMT

#region OneWayHash ///

/// Encrypts input string ///

Formating a file size and adding the B, KB, MB and GB extension appropriately with string.Format

J.Marc Piulachs — Thu, 12 May 2005 19:03:39 GMT

private string FormatSize (double fileSize)
{
	if (fileSize < 1024)
		return String.Format("{0:N0} B", fileSize);
	else if (fileSize < 1024*1024)
		return String.Format("{0:N2} KB", fileSize/1024);
	else
		return String.Format("{0:N2} MB", fileSize/(1024*1024));
}

How do I load an image from a URI address?

J.Marc Piulachs — Mon, 18 Apr 2005 08:59:22 GMT

Function GetImageFromURL(ByVal url As String) As Byte() 
    Dim wr As HttpWebRequest = _ 
       DirectCast(WebRequest.Create(url), HttpWebRequest) 
    Dim wresponse As HttpWebResponse = _ 
       DirectCast(wr.GetResponse, HttpWebResponse) 
    Dim responseStream As Stream = wresponse.GetResponseStream 
    Dim br As BinaryReader = New BinaryReader(responseStream) 
    Dim bytesize As Long = wresponse.ContentLength 
    Return br.ReadBytes(bytesize) 
End Function 
To use the above function:
Dim img As New Bitmap(New IO.MemoryStream(GetImageFromURL("http://msdn.microsoft.com/longhorn/art/codenameLonghorn.JPG"))) 
Me.BackgroundImage = img