Question

我知道如何将文件保存并加载到设置路径，但这需要加载并保存到USB驱动器。我显然无法将其设置为E:\或其他任何内容，因为字母因计算机而异。我怎样才能找到正确的道路？

Answer 1

您需要先检测驱动器的插入，然后才能获得它的驱动器号。

请参阅此文章：How to detect insertion and removal of other USB Peripherals?

Answer 2

使用DriveInfo.GetDrives方法检索计算机上所有逻辑驱动器的驱动器名称。

Imports System
Imports System.IO

Class Test
    Public Shared Sub Main()
        Dim allDrives() As DriveInfo = DriveInfo.GetDrives()

        Dim d As DriveInfo
        For Each d In allDrives
            Console.WriteLine("Drive {0}", d.Name)
            Console.WriteLine("  File type: {0}", d.DriveType)
        Next 
    End Sub 
End Class

见 MSDN

Answer 3

您可以使用this示例查找驱动器并阅读每个驱动器的序列并与设备序列进行匹配。因此，与您的序列匹配的驱动器可用于读/写文件。

希望这会对你有所帮助。

Answer 4

在表单上创建一个组合框和一个文本框。

如果超过1，您可以使用组合框选择可移动设备＆＃34; 1e将被自动选择＆＃34;

文本框将显示所选驱动器的驱动器号。

我用一个按钮来测试代码！

因此，在每个驱动器中，检查驱动器是否准备就绪以及驱动器是否可拆卸＆＃34;如果RemovableDrived.IsReady = True AndAlso RemovableDrived.DriveType = IO.DriveType.Removable那么＆＃34;
如果为true，请将其添加到组合框中因此，您的组合框中将包含所有可移动驱动器。

如果您知道usb设备名称，并且想要查找它，可以在将项目添加到组合框之前将其添加到for中。＆＃34;如果RemovableDrived.VolumeLabel =＆＃34; RemovableDriveName＆＃34;然后＆＃34;

您可以将ResultDrive用于您的驱动器号。＆＃34;它将显示所选的驱动器根＆＃34;
所以在组合框SelectedIndexChanged事件中，我给ResultDrive他的值。

最后一件事！
因为您没有提供太多代码和信息我给你可移动驱动器的驱动器号＆＃34;否则，您需要提供有关如何选择驱动器的更多信息，以及它是否总是具有相同的名称等等＃34;

如果您需要更多帮助，请告诉我：）＆＃34;

Dim AllDrives() As IO.DriveInfo = IO.DriveInfo.GetDrives()
Dim ResultDrive As String

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    ComboBox1.Items.Clear()

    For Each RemovableDrive In AllDrives
        If RemovableDrive.IsReady = True AndAlso RemovableDrive.DriveType = IO.DriveType.Removable Then
           'If RemovableDrive.VolumeLabel = "RemovableDriveName" Then
            ComboBox1.Items.Add(RemovableDrive.RootDirectory).ToString()
           'End If
        End If
    Next
    ComboBox1.SelectedIndex = 0
End Sub

Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
    ResultDrive = Convert.ToString(ComboBox1.SelectedItem)
    TextBox1.Text = ResultDrive
End Sub

读取和写入USB驱动器上的文件

4 个答案: