Software Development Services, Website Development, Application Development

The purpose of these pages to share small piece of codes which helps developers. Usually it is harder to manage such pieces. Peoples usually make small projects to save their pieces, but this could be helpful as you can manage your codes here and also search. Top of all, these pieces are shared automatically among everyone. So you have chances to get your required piece of code immediately.

Share Code Now and make your own libraries

Category:	File System
Title:	Sort Files By Name (Windows XP style)
Description:	Sort the files by windows XP style. Windows XP+ only.
Posted On:	10/13/2007
Posted By:	Sameers (theAngrycodeR)

VB Version

Public Class NumericComparer
    Implements IComparer
    Public Sub New()
    End Sub

    Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements IComparer.Compare
        If (TypeOf x Is String) AndAlso (TypeOf y Is String) Then
            Return StrCmpLogicalW(DirectCast(x, String), DirectCast(y, String))
        End If
        Return -1
    End Function

    'Declare Unicode Function StrCmpLogicalW Lib "shlwapi.dll" (ByVal s1 As String, ByVal s2 As String) As Int32
    <DllImport("shlwapi.dll", CharSet:=CharSet.Unicode, ExactSpelling:=True)> _
    Private Shared Function StrCmpLogicalW(ByVal x As String, ByVal y As String) As Integer
    End Function
End Class

C# Version

public class NumericComparer : IComparer 
{ 
    public NumericComparer() 
    { 
    } 
    
    public int IComparer.Compare(object x, object y) 
    { 
        if ((x is string) && (y is string)) { 
            return StrCmpLogicalW((string)x, (string)y); 
        } 
        return -1; 
    } 
    
    //Declare Unicode Function StrCmpLogicalW Lib "shlwapi.dll" (ByVal s1 As String, ByVal s2 As String) As Int32 
    [DllImport("shlwapi.dll", CharSet = CharSet.Unicode, ExactSpelling = true)] 
    private static extern int StrCmpLogicalW(string x, string y); 
}

Welcome to Sameers Home Page

Sameers Portal

Category:

Title:

Description:

Posted On:

Posted By:

VB Version

C# Version