| Pregunta: | 7269 - COPIA DE FICHEROS |
| Autor: | Antonio Castillo Penz |
| Soy novato en esto del Visual, el caso es que tengo una aplicación en la cuál necesito copiar elç contenido de una carpeta, o sea un grupo de archivos, a una disketera de alta densidad conectada a un puerto USB, he enlazado un Dirlistbox, filelistbox y recojo en una variable si selecciono un archivo pero no sé que mandato se usa para copiar arhivos y como se selecciona una carpeta entera. Gracias. | |
| Respuesta: | Xavi |
| Para ello, utiliza el metodo Copy que puedes utilizarlo con el objeto File o Folder segun si quieres copiar archivos o directorios. Te adjunto parte de la ayuda del VB El código siguiente demuestra cómo obtener un objeto Folder y cómo devolver una de sus propiedades: Sub ShowFolderInfo(folderspec) Dim fs, f, s, Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) s = f.DateCreated MsgBox s End Sub Sub ShowFileInfo(filespec) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFile(filespec) s = f.DateCreated MsgBox s End Sub En los dos casos, utiliza fs.copy Origen, Destino[,Sobrescribir] donde Sobrescribir es un valor del tipo Booleano. | |