Accesing External Drive

[flamingwhey_19]

Any idea how to direct my custom filebrowser to enter directly into my flashdrive and not on C:?reply codes and suggestions will be highly appreciated, tnx in advance

 

[JohnH]

If it's a removable you could check for this:

For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
    If drive.DriveType = IO.DriveType.Removable Then
        Dim path = drive.RootDirectory
        '..
    End If           
Next

 

[flamingwhey_19]

Wow, tnx man ill try this and update you for the behaviour of my program, GODBLESS

 

[flamingwhey_19]

hei john, i dont know where to place the code for it to work, here is my program code, i made a custom file browser which is going to a special directory the my documents, i got it on youtube, i want it to behave going on the flash drive

Public Class MainForm

Dim CurrentDir As String
Friend Sub LoadData(ByVal Directory As String)
Data.Visible = True
CurrentDir = Directory
Me.Text = My.Computer.FileSystem.GetDirectoryInfo(Directory).Name
Data.Controls.Clear()

'Load Directories that are in the directory
For Each Ditem In My.Computer.FileSystem.GetDirectories(Directory)


Dim DirectoryTitle As String = My.Computer.FileSystem.GetDirectoryInfo(Ditem).Name

Dim DitemItem As New FileBrowserTutorial.DataItem
DitemItem.Tag = Ditem

DitemItem.ItemTitle.Text = DirectoryTitle
DitemItem.ItemImage.Image = My.Resources.Water_lilies
DitemItem.ItemExtension.Text = "Folder"
AddHandler DitemItem.Item_DoubleClick, AddressOf Directory_DoubleClick
DitemItem.Dock = DockStyle.Top
Data.Controls.Add(DitemItem)
DitemItem.BringToFront()

Next
'Load File that are in the directory
For Each File In My.Computer.FileSystem.GetFiles(Directory)

Dim FileTitle As String = My.Computer.FileSystem.GetFileInfo(File).Name
Dim FileExtension As String = My.Computer.FileSystem.GetFileInfo(File).Extension
Dim FileItem As New FileBrowserTutorial.DataItem
FileItem.Tag = File
FileItem.ItemTitle.Text = FileTitle
Dim DirectoryIcon As System.Drawing.Icon = Icon.ExtractAssociatedIcon(File)
FileItem.ItemImage.Image = DirectoryIcon.ToBitmap
FileItem.ItemExtension.Text = FileExtension
AddHandler FileItem.Item_Click, AddressOf File_Click
FileItem.Dock = DockStyle.Top
Data.Controls.Add(FileItem)
FileItem.BringToFront()
Next
Data.Visible = True
End Sub
Private Sub Directory_DoubleClick(ByVal FileName As String)
LoadData(FileName)
End Sub
Private Sub File_Click(ByVal Filename As String)
Link.Text = Filename

End Sub

Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LoadData(My.Computer.FileSystem.SpecialDirectories.MyDocuments)

End Sub

Private Sub OpenBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenBtn.Click
If Not Link.Text.EndsWith(".exe") Then
Process.Start(Link.Text)
Else
Shell(Link.Text)
End If
End Sub

Private Sub UpBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpBtn.Click
Dim Directory As String = CurrentDir
Directory = Replace(Directory, My.Computer.FileSystem.GetDirectoryInfo(Directory).Name, Nothing)
LoadData(Directory)


End Sub
End Class

 

[JohnH]

The point of the code is to see if one of the drives is 'removable', so if this correctly identifies your drive then you have the path as shown in the code sample. That path you can use as input for your LoadData I guess.

Always use the code box when posting code in the forums.