¿Cómo copiar y pegar archivos en VB como Windows?

Establecer FSO = CreateObject("Script. Objeto del sistema de archivos")

Establecer sh = CreateObject("Shell. Aplicación")

Miarchivo = "D:\Thunder Download\Embarrassing People. RMVB " 'Ruta del archivo fuente

Newpath = "F:\temporary" 'Carpeta de destino

Espacio de nombres Schilling (FSO. GetParentFoldername (MyFile)). Parsename(FSO.GetFilename(MiArchivo)). Invokerb "Copiar(;c)"

Espacio de nombres de chelín (nueva ruta). ser. invokeerb "Paste(;p)"

Para archivos de menos de decenas de MB, no se puede ver ningún efecto obvio porque el tiempo de copia es demasiado corto.