Recoger datos desde un fichero de texto con separador en un combobox
Publicado por jose (33 intervenciones) el 01/05/2020 17:57:36
Buenas,
Estoy recogiendo datos de un archivo que se añade a un combobox. Dichos datos son rutas de directorios para abrirlos en un explorador al seleccionar el combobox.
El problema es que he de colocar la ruta completa ejemplo "C:\Users\Administrator\Documents\Bluetooth Exchange Folder"
Tenía pensado que en el archivo de texto o bien aparezca
"Bluetooth Exchange Folder # C:\Users\Administrator\Documents\Bluetooth Exchange Folder"
Y que en el combobox aparzca la parte izquierda, pero que en el explorador abra la parte derecha
o en el combobox que aparezca la parte izquierda de la ruta apartir del ultimo "\".
No he conseguido averiguar como hacer ninguno de estas dos opciones. Se que es algo sencillo pero no veo la forma.
AL inicio cargo una función que carga el combobox
La función lee un archivo, que contendrá directorios y que al seleccionar en el combobox abir el explorador con el directorio indicado en el archivo.
metodo que abré el explorador al seleccionar un item del combobox.
Estoy recogiendo datos de un archivo que se añade a un combobox. Dichos datos son rutas de directorios para abrirlos en un explorador al seleccionar el combobox.
El problema es que he de colocar la ruta completa ejemplo "C:\Users\Administrator\Documents\Bluetooth Exchange Folder"
Tenía pensado que en el archivo de texto o bien aparezca
"Bluetooth Exchange Folder # C:\Users\Administrator\Documents\Bluetooth Exchange Folder"
Y que en el combobox aparzca la parte izquierda, pero que en el explorador abra la parte derecha
o en el combobox que aparezca la parte izquierda de la ruta apartir del ultimo "\".
No he conseguido averiguar como hacer ninguno de estas dos opciones. Se que es algo sencillo pero no veo la forma.
AL inicio cargo una función que carga el combobox
1
2
3
4
5
Private Sub Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
'Funcion Combobox CarpetaCarpetas()
End Sub
La función lee un archivo, que contendrá directorios y que al seleccionar en el combobox abir el explorador con el directorio indicado en el archivo.
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
Sub Carpetas()
Dim strCarpeta As String = "%AppData%\Ascii\"
strCarpeta = Environment.ExpandEnvironmentVariables(strCarpeta)
Dim StrFileCarpetas As String = strCarpeta & "Carpetas.txt"
Try
If Not Directory.Exists(strCarpeta) Then
Directory.CreateDirectory(strCarpeta)
End If
If Not File.Exists(StrFileCarpetas) Then
File.Create(StrFileCarpetas)
End If
CbCarpetas.Items.Clear()
'Dim strFile As String = StrFileCarpetasDim readfileCombo As New StreamReader(StrFileCarpetas)
'Read all lines and add them into ComboboxDo Until readfileCombo.EndOfStream = True
CbCarpetas.Items.Add(readfileCombo.ReadLine)
Loop
readfileCombo.Close()
Catch es As Exception
End Try
End Sub
metodo que abré el explorador al seleccionar un item del combobox.
1
2
3
4
5
6
7
8
9
10
Private Sub CbCarpetas_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CbCarpetas.SelectedIndexChanged
Dim strCarpeta As String
strCarpeta = CbCarpetas.SelectedItem
If Not Directory.Exists(strCarpeta) Then
MsgBox("No existe", MsgBoxStyle.Information)
Else
Process.Start("explorer.exe", strCarpeta)
End If
End Sub
Valora esta pregunta
0
