| Pregunta: | 64945 - PROBLEMA EN CARGA DE FOTOS EN UNA APLICACION |
| Autor: | Almu .Net2010 |
| Buens días. Tengo una dudilla, os comento: Estoy haciendo una aplicación Windows Form y quiero que el administrador de la aplicación pueda hacer carga de fotos y meterlo en un directorio ya creado, para luego que se visualizen en la parte publica de la aplicación. Estoy utilizando esto: Dim saveFileDialog1 As New SaveFileDialog() saveFileDialog1.Filter = "Cursor Files|*.*" saveFileDialog1.Title = "Select a Cursor File" Try If saveFileDialog1.ShowDialog() = DialogResult.OK Then If saveFileDialog1.FileName <> "" Then Me.Cursor = New Cursor(saveFileDialog1.OpenFile()) End If End If Catch ex As Exception MsgBox(ex.Message) End Try Pero no se como indicarle que lo guarde en una ruta fija de la aplicación. ¿Me pideis ayudar? Muchas graciasssssssssssssssssssss:) | |
| Respuesta: | Dark_zen arias |
| lo que yo sepa para copiar un archivo del cual sea la extencion debes de tener la ruta de origen y la ruta de destino incluyendo el nombre... primero cargas el archivo(ruta) con un openfiledialog en mic aso la almaceno en "Ls_Pic" Try With OpenFileDialog1 .Filter = "Archivos PDF (*.pdf)|*.pdf|Documentos de Word (*.doc)|*.doc|Archivos JPG (*.jpg)|*.jpg|Todos los archivos (*.*)|*.*" .InitialDirectory = "C:" .Title = "Abrir Documento" .FileName = "" If (.ShowDialog = Windows.Forms.DialogResult.OK) Then Ls_Pic = .FileName End If End With Catch ex As Exception MsgBox("Error en la ubicacion de foto ", MsgBoxStyle.Critical) End Try Label28.Text = Ls_Pic y luego la guardo donde yo quiera... por ejemplo una ruta pre definida claro lo mas logico seria que la ruta este en un archivo ini o un xml algo como esto 'CONFIGURACIONES Dim Xml As XmlDocument Dim NodeList As XmlNodeList Dim Node As XmlNode Xml = New XmlDocument() Xml.Load(SYSSOURCE.S_APP & "FLsys.xml") NodeList = Xml.SelectNodes("/conf/AppConfig") For Each Node In NodeList With Node.Attributes If .GetNamedItem("Name").Value <> "Default" Then SYSNAME = .GetNamedItem("Title").Value SYSTEM_FOLIO_OBT = CUShort(.GetNamedItem("Archivo").Value) SYSTEM_FOLIO_NAME = .GetNamedItem("Url").Value SYSSOURCE.S_DB = .GetNamedItem("DB").Value SYSVERSION = .GetNamedItem("Vers").Value SYSSOURCE.S_TEMP = .GetNamedItem("Templates").Value SYSSOURCE.S_SERVER = .GetNamedItem("Server").Value SYSSOURCE.S_RECURSES = .GetNamedItem("Recourses").Value SYSSOURCE.S_PHOTOGRAFIC = .GetNamedItem("Photografic").Value SYSUSUARIO.KEY.PERMISO = CBool(.GetNamedItem("Usbkey").Value) Else Exit Sub End If End With Next y finalmente el procedimiento para copiar los archivos .. Function Function_FILE_COPY(ByVal SOURCE As String, ByVal DESTINATION As String) As Boolean Try System.IO.File.Copy(SOURCE, DESTINATION, True) Return True Catch ex As Exception Return False End Try End Function la carpeta de destino debe de estar totalmente habilitada para poder crear archivos en entorno de red local | |