Saludos:

Hoy me toco preguntar, jeje:

Tengo el requerimiento de crear un form con las siguientes tareas:

1) Seleccionar uno o varios PDF's del PC del usuario.
2) Copiarlos en un directorio del Server.
3) Guardar la ruta asignada en la BD (MySql) como un record.
4) Tener la posibilidad de abrir el PDF, tomadolo desde la ubicacion en el Server.

Estoy perdido en cuanto a que controles usar. He visto el TreeView, el ListView, pero no se cual sea la mejor opcion.

Si alguien me echa una mano con su experta opinion, y si de pronto tiene algo de codigo, se lo agradecere mucho.


JOSE LUIS

Saludos:

Bueno, despues de hacer mi tarea, en esto me quedo la pregunta. La posteo por si acaso le sirve a alguien mas adelante:

Caso Uno. Seleccionar TODO el contenido de un folder (directorio).

Código:

Sub Sel_Drctorio()
        Dim sDir, sArch, Dt_DirFnte  As String
        Try
            With FolderBrowserDialog1                                                                       ' Configuración del FolderBrowserDialog
                .Reset()
                .Description = " Select a folder with PDF's files... "
                .SelectedPath = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)    ' Path " Mis documentos "
                .ShowNewFolderButton = False                                                        ' deshabilita el botón " crear nueva carpeta "
                Dim ret As DialogResult = .ShowDialog()                                             ' abre el diálogo
                If ret = Windows.Forms.DialogResult.OK Then                                         ' si se presionó el botón aceptar ...
                    Dim nFiles As ObjectModel.ReadOnlyCollection(Of String)
                    nFiles = My.Computer.FileSystem.GetFiles(.SelectedPath)
                End If
                Dt_DirFnte = FolderBrowserDialog1.SelectedPath
                .Dispose()
            End With
        Catch Ex As Exception
            MsgBox(Ex.Message, MsgBoxStyle.Critical)
        End Try
        sDir = FolderBrowserDialog1.SelectedPath
        sArch = (Dir(sDir & "\*.pdf"))                          ' Filtro de archivos
        Do While sArch <> ""
            ListView1.Items.Add(sArch)
            sArch = Dir()
        Loop
        With ListView1
            .Enabled = True
            .Columns.Add("Contracts you want to Upload... ", -2, HorizontalAlignment.Left)
            .View = View.SmallIcon
            .LabelEdit = True
            .AllowColumnReorder = True
            .FullRowSelect = True
            .GridLines = True
            .Sorting = SortOrder.Ascending
            '.CheckBoxes = True
        End With
        With Label1
            .Text = "Folder " & sDir & " contains " & ListView1.Items.Count & " files. "
            .TextAlign = ContentAlignment.MiddleLeft
            .Visible = True
        End With
    End Sub

Caso Dos. Seleccionar UNO o VARIOS archivos de un folder (directorio).

Código:

Sub Sel_Archvos()
        Dim myStream As Stream = Nothing
        Dim AbrirDialogo As New OpenFileDialog
        With AbrirDialogo
            .InitialDirectory = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments) '"c:\"
            .Filter = "pdf files (*.pdf)|*.pdf|All files (*.*)|*.*"
            .FilterIndex = 2
            .RestoreDirectory = True
            .Multiselect = True
        End With
 
        If AbrirDialogo.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Try
                myStream = AbrirDialogo.OpenFile
                For Each Dt_Archvo As String In AbrirDialogo.FileNames
                    If (myStream IsNot Nothing) Then
                        Lv_Cntrtos.Items.Add(Dt_Archvo)
                    End If
                Next
            Catch Ex As Exception
                MessageBox.Show("Cannot read file from disk. Origin error: " & Ex.Message)
            Finally
                If (myStream IsNot Nothing) Then
                    myStream.Close()
                End If
            End Try
 
            With ListView1
                .Enabled = True
                .Columns.Add("File(s) you want to Upload... ", -2, HorizontalAlignment.Left)
                .View = View.SmallIcon
                .LabelEdit = True
                .AllowColumnReorder = True
                .FullRowSelect = True
                .GridLines = True
                .Sorting = SortOrder.Ascending
            End With
        End If
    End Sub

Despues de seleccionar, creamos un directorio con el mismo nombre para cada archivo, y movemos el archivo a su directorio.

Código:

Sub SubirCntrtos()
        Dim Dt_NvoArchvo As String
        Dim Dt_DirServer As String = "\\Server\Archivos"
        Dim MaxArchvos As Integer = Lv_Cntrtos.Items.Count - 1
        With L_Mnsje
            .Visible = True
            .Text = ""
        End With
        For i = 0 To MaxArchvos
            ' 1. Crear Directorios por HSI ID.
            Dim Dt_NvoDrctrio() As String = Nothing
            Dt_NvoArchvo = ListView1.Items.Item(i).Text
            Dt_NvoDrctrio = Strings.Split(Dt_NvoArchvo, ".")
            Label1.Text = "Moving " & Dt_NvoArchvo & " to " & Dt_DirServer & "\" & Dt_NvoDrctrio(0) & "... "
            My.Computer.FileSystem.CreateDirectory(Dt_DirServer & "\" & Dt_NvoDrctrio(0))
            ' 2. Mover archivos a directorio creado.
            My.Computer.FileSystem.CopyFile(Dt_DirFnte & "\" & Dt_NvoArchvo, Dt_DirServer & "\" & Dt_NvoDrctrio(0) & "\" & Dt_NvoArchvo, True)
        Next
        Label1.Text = MaxArchvos & " files were moving to " & Dt_DirServer & ". "
    End Sub

Espero ayude.


JOSE LUIS.

Vaya, iba a responderte pero veo que te has respondido tú jaja. No vi el post antes de que hicieras el segundo comentario, lo siento.

De todos modos, lo que se aprende cuando uno se da cabezazos con lo mismo hasta resolverlo y la satisfacción que se siente jeje, no tiene precio.

Un saludo!

Jajaja, es cierto...

Lo que pasa es que cuando se me mete algo en la cabeza no puedo seguir hasta resolverlo.

De todos modos, muchas gracias, Nereo. Un saludo y felices fiestas.


JOSE LUIS