Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click If ComboBox2.SelectedItem = "" Then MsgBox("Selecciona Una Unidad USB", MsgBoxStyle.Critical, "Error") Else Try Catch End Try Dim usb As String usb = ComboBox2.Text usb = ComboBox2.Text Dim Intru As Object Dim Archivo As Object Intru = CreateObject("Scripting.FileSystemObject") Archivo = Intru.CreateTextFile("G:\test", True) Archivo.WriteLine("Prueba") Archivo.Close() End If End SubEnd Class
'En el suceso load del formulario tuyo debes tener algo así (recuerda que para ir al load de tu formulario tienes que hacer doble click sobre el, y se creara solo el metodo).Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim Unidad As String For Each Unidad In Directory.GetLogicalDrives() ComboBox1.Items.Add(Unidad) ComboBox1.Focus() Next Unidad End Sub' con este codigo ya tienes cargado en tu combobox todas las unidades que están en mi pc.. luego lo que debez hacer es manipular el evento SelectedIndexChange. Lo que hace este evento es que cuando vos seleccionas un objeto se ejecuta.'En nuestro caso deberemos manipular el combobox. Entonces, haz doble click sobre el combobox y se generara el metodo ComboBox1_SelectedIndexChanged. Una vez ahi haces lo siguiente: Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged 'fijate que algo así te quedara el metodo cuando hagas doble click. Dim FileName As String = "txtPrueba.txt" 'Aqui creamos el nombre del archivo que se creara en la unidad. Dim PathAndFile = ComboBox1.SelectedItem & FileName 'Aqui concatenamos la unidad (por ejemplo c:\) con el nombre del archivo If File.Exists(PathAndFile) Then 'Ahora preguntamos, si el archivo ya existe lo borramos, sino, seguimos. File.Delete(PathAndFile) End If File.Create(PathAndFile) 'Con esta opcion creamos el archivo. End Sub