Mkdir, CopyFile, etc
Publicado por groval (225 intervenciones) el 17/06/2003 19:09:21
Hola ... Gracias por atender este llamado..
Tengo un formulario de base de datos y en el un control Text1, ademas tengo un boton Command1 para crear un directorio en la unidad de red g:\baseDatos pero como subdirectorio el texto que se encuentra en el TExt1. Asi que si en el TExt se encuentra la palabra "empleados" entonces creara un directorio g:\baseDatos\empleado. Ahora tengo otro boton que debe copiar un archivo desde cualquier medio tal como A:, C:, D:, E:, a dicho directorio creado.
Soy un novato en esto y he hecho lo siguiente :
Private Sub Command1_Click()
If frmResultados.Text1.Text = "" Then
MsgBox "DEBE COLOCAR UN NOMBRE EN LA OPERACION"
Else
Dim FILE1 As String
FILE1 = frmResultados.Text1.Text
MkDir "G:\BaseDatos" & "\" & "FILE1"
End If
End Sub
pero no me resulta.. Le agradeceria una ayuda.. !! Gracias.
Tengo un formulario de base de datos y en el un control Text1, ademas tengo un boton Command1 para crear un directorio en la unidad de red g:\baseDatos pero como subdirectorio el texto que se encuentra en el TExt1. Asi que si en el TExt se encuentra la palabra "empleados" entonces creara un directorio g:\baseDatos\empleado. Ahora tengo otro boton que debe copiar un archivo desde cualquier medio tal como A:, C:, D:, E:, a dicho directorio creado.
Soy un novato en esto y he hecho lo siguiente :
Private Sub Command1_Click()
If frmResultados.Text1.Text = "" Then
MsgBox "DEBE COLOCAR UN NOMBRE EN LA OPERACION"
Else
Dim FILE1 As String
FILE1 = frmResultados.Text1.Text
MkDir "G:\BaseDatos" & "\" & "FILE1"
End If
End Sub
pero no me resulta.. Le agradeceria una ayuda.. !! Gracias.
Valora esta pregunta


0