Como copio una imagen seleccionada a otra carpeta
Publicado por Tatirus ReX (11 intervenciones) el 26/05/2005 20:09:32
Hola tengo este tema, en un formulario tengo un boton que me permite abrir la ventana de dialogo y elegir una foto en cualquier drive, ¿Como hago para copiar el archivo de imagen a determinada carpeta?
yo hice hasta aca
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la foto"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.Filters.Add "GIF", "*.gif"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = "D:\"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
y ahora?
yo hice hasta aca
Dim fileName As String
Dim result As Integer
With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione la foto"
.Filters.Add "All Files", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.Filters.Add "GIF", "*.gif"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = "D:\"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
y ahora?
Valora esta pregunta


0