Visual Basic - Quien me ayuda revisando esto..!!

Life is soft - evento anual de software empresarial
   
Vista:

Quien me ayuda revisando esto..!!

Publicado por Gilberto (225 intervenciones) el 16/12/2008 21:24:02
Hola ... gracias por su paciencia...!!
TEngo la siguienmte situacion:
Necesito seleccionar un archivo mediante un commondialog y copiarlo a un directorio que se debe crear con el codigo del paciente en text35.text
Pero no me resulta.. soy inexperto y me quede sin manera de como resolverlo..!!
Le agradezco una mano.. gracias..

*** codigo***

'Selecciono el archivo a copiar

CommonDialog2.InitDir = "C:"
CommonDialog2.ShowOpen

If (pacientes.CommonDialog2.FileName) <> "" Then
Archivo = pacientes.CommonDialog2.FileName


'con este codigo creo un directorio (sino existe) para copiar posteriormente archivos de documentos ppt, doc, xls referente al registro

StrDir = Me.Text31

DirDestino = App.Path & "DOCU_RES" & StrDir '& "" ' Envia a la variable publica del modulo conexion la expresion del directorio para la copia de los archivos.

If StrDir <> "" Then
If Dir(DirDestino, vbDirectory) = "" Then
MkDir DirDestino
MsgBox "Se creó directorio " & StrDir, vbInformation
End If
End If

' con este codigo copio al directorio creado el archivo que he seleccionado en

Screen.MousePointer = vbHourglass

'

ArchDestino = DirDestino ' Se define el nombre del direcotrio de destino _
Claro esta que usted puede cambiar la unidad de G: por C: ** ESTOS YA DEBEN DE ESTAR CREADOS."

FileCopy Archivo, ArchDestino ' Se copia el archivo de origen en el archivo de destino.
Screen.MousePointer = vbDefault
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Quien me ayuda revisando esto..!!

Publicado por P3L30N (701 intervenciones) el 16/12/2008 21:39:18
Vamos a ver Gilberto, ya sabemos que eres inexperto en VB pero es que además eres inexperto en los foros.

Cuando haces una pregunta en un foro y te responden, lo normal es que digas si la respuesta fué correcta o no.

Ten en cuenta que los que respondemos no lo hacemos por obligación, sino por ayudar. No solamente al que pregunta, sino a los que tienen la misma duda.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Quien me ayuda revisando esto..!!

Publicado por gILBERTO (225 intervenciones) el 16/12/2008 21:54:33
Hola p3l3on que pena con Ud. ... bueno Ud tiene razon.. que falta de cortesia con los foritas..!! Disculpame... claro que no todas las veces me ha pasado... por lo general agradezco mcuho a la persona que se toma el trabajo desinteresado de ayudar a otros.. pero esta vez se me paso.. De todas maneras le envio un saludo de agradecimiento y con el un apreton de NAVIDAD..!!! gracias por su trabajo..!! y que Dios lo bendiga siempre..!!
Gilberto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Quien me ayuda revisando esto..!!

Publicado por P3L30N (701 intervenciones) el 17/12/2008 13:29:22
Vale Gilberto, acepto las disculpas y como estamos casi en NAVIDAD, que es época de paz y amistad, te pongo el ejemplo comentado.

CommonDialog2.ShowOpen
Archivo = CommonDialog2.FileName
DirDestino = App.Path & "\DOCU_RES"

Dim FSO As New FileSystemObject
If Not FSO.FolderExists(DirDestino) Then
' si no existe el subdirectorio "DOCU_RES", lo crea
FSO.CreateFolder (DirDestino)
End If
' nos movemos a la carpeta en cuestión
ChDir App.Path & "\DOCU_RES"
DirDestino = DirDestino & "\" & StrDir
If Not FSO.FolderExists(DirDestino) Then
' si no existe la carpeta indicada en la variable "StrDir", la crea
FSO.CreateFolder (DirDestino)
End If

DirDestino = DirDestino & "\"
FSO.CopyFile Archivo, DirDestino, True
' volvemos al directorio de la aplicación
ChDir App.Path

MsgBox "Archivo copiado"

IMPORTANTE: marca la referencia "Microsoft Scripting Runtime"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Quien me ayuda revisando esto..!!

Publicado por Gilberto (225 intervenciones) el 17/12/2008 13:51:07
Hola p3l3on, Bueno..... hombre muchas gracias.. ya comienzo a implementalro y le comentare como me salio al termino.. !!
Le envio un saludo de agradecimiento y espero mas tarde decirle como me salio..
Gilberto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Quien me ayuda revisando esto..!!

Publicado por GILBERTO (225 intervenciones) el 17/12/2008 14:57:46
Hola P3l3on

Implementado y listo.. que bueno me funiono.. una maravilla...!!

Gracias ..

FELIZ NAVIDAD..
Gilberto
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar