Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Declare Unicode Function StrCmpLogicalW Lib "shlwapi.dll" (ByVal s1 As String, ByVal s2 As String) As Int32
- Private Function CompareFiles(x As String, y As String) As Integer
- Return StrCmpLogicalW(x, y)
- End Function
- For Each driver As DriveInfo In DriveInfo.GetDrives()
- If driver.IsReady And driver.DriveType = DriveType.Removable Then
- Dim ext = {"*.zip"}
- Dim rootFiles() As String = ext.SelectMany(Function(f) Directory.GetFiles(driver.RootDirectory.ToString, f, SearchOption.TopDirectoryOnly)).OrderBy(Function(f) f).ToArray()
- Array.Sort(rootFiles, New Comparison(Of String)(AddressOf CompareFiles))
- 'Next line gets System Volume Information
- Dim otherFiles = ext.SelectMany(Function(f) Directory.GetFiles(driver.RootDirectory.ToString, f, SearchOption.AllDirectories)).OrderBy(Function(f) f).ToArray()
- Array.Sort(otherFiles, New Comparison(Of String)(AddressOf CompareFiles))
- ComBoxUsb.Items.Clear()
- For Each model In rootFiles.Union(otherFiles)
- ComBoxUsb.Items.Add(model)
- Next
- End If
- Next
Add Comment
Please, Sign In to add comment