Función Dir
Hola, he cambiado el código según me dijiste, pero sigue pasando lo mismo...
¿Me podrías decir como se hace con la función filesystemobject o de alguna otra forma?
Gracias
Private Sub boton3_Click()
Dim origen As String
Dim destino As String
Dim ventana As Integer
destino = InputBox("ruta de acceso de destino", "destino")
If Dir(destino & "\.") = "" Then
'dir devuelve el nombre de un destino o fichero, si este existe
'su valor sera vacio ("")si no existe, por lo tanto
'creamos el destino
ventana = MsgBox("No existe la carpeta destino, Crearla?", vbYesNo, "Aviso")
If ventana = vbYes Then
MkDir (destino)
End If
End If
destino = destino & "\" & destino2
For i = 0 To File1.ListCount - 1
destino2 = File1.List(i)
origen = File1.Path & "\" & File1.List(i)
FileCopy origen, destino & destino2
Kill (File1.Path & "\" & File1.List(i))
Next
End Sub
¿Me podrías decir como se hace con la función filesystemobject o de alguna otra forma?
Gracias
Private Sub boton3_Click()
Dim origen As String
Dim destino As String
Dim ventana As Integer
destino = InputBox("ruta de acceso de destino", "destino")
If Dir(destino & "\.") = "" Then
'dir devuelve el nombre de un destino o fichero, si este existe
'su valor sera vacio ("")si no existe, por lo tanto
'creamos el destino
ventana = MsgBox("No existe la carpeta destino, Crearla?", vbYesNo, "Aviso")
If ventana = vbYes Then
MkDir (destino)
End If
End If
destino = destino & "\" & destino2
For i = 0 To File1.ListCount - 1
destino2 = File1.List(i)
origen = File1.Path & "\" & File1.List(i)
FileCopy origen, destino & destino2
Kill (File1.Path & "\" & File1.List(i))
Next
End Sub
1 respuesta
Respuesta de citef
1
Pues no entiendo porque no te funciona (supongo que al teclear el directorio no incluyes la barra invertida final).
En cualquier caso para hacerlo con el filesystemobject debes incluir en tu proyecto una referencia a "Microsoft Scripting Runtime" y para usar el fso se hace de la forma:
Dim fso as new filesystemobject
if fso.folderexists("C:\pruebas") then
msgbox "El directorio existe"
else
msgbox "El directorio NO existe"
end if
En cualquier caso para hacerlo con el filesystemobject debes incluir en tu proyecto una referencia a "Microsoft Scripting Runtime" y para usar el fso se hace de la forma:
Dim fso as new filesystemobject
if fso.folderexists("C:\pruebas") then
msgbox "El directorio existe"
else
msgbox "El directorio NO existe"
end if
