¿Cómo copiar, mover y eliminar archivos y carpetas usando VB?

Private Sub Command1_Click() 'Copiar el archivo

Si Text1.Text = "" O Text2.Text = "" Entonces

MsgBox "La entrada no puede estar vacía"

Else

FileCopy Text1.Text, Text2.Text 'Copiar archivo

MsgBox "Archivo copiado ¡con éxito!", vbInformation, "Los libros del mañana"

End If

End Sub

FileCopy Text1.Text, Text2.Text 'Copiar archivo, vbInformation, " Libros del mañana"

End If

End Sub

Private Sub Command3_Click() 'Seleccione la ruta de almacenamiento del archivo

CommonDialog1.ShowSave

Text2.Text = CommonDialog1.FileName

End Sub

2 Utilice la función MoveFile para mover archivos

Función de declaración privada MoveFile Lib ". kernel32" Alias ​​​​"MoveFileA " (ByVal lpExistingFileName como cadena, ByVal lpNewFileName como cadena) siempre y cuando

Subcomando privado1_Click()

Si txt_ywj.Text = " " o txt_ mbwj .Text = "" Entonces

MsgBox "La entrada no puede ser nula", vbInformation, "Libro de mañana"

Else

MoveFile Texto1.Texto, Texto2 .Text 'El proceso de realizar el movimiento de archivos

MsgBox "¡El archivo se movió correctamente!"ShowOpen

Text2.Text = CommonDialog1.FileName

End Sub

3. DeleteFolder

Para eliminar una carpeta, puede utilizar el método DeleteFolder del objeto de archivo para completar la operación de eliminación del archivo. Este método eliminará la carpeta y todo el contenido de la carpeta sin determinar si hay algo en la carpeta. Debido a que el método DeleteFolder es un método del objeto FSO, debe hacer referencia al objeto FSO antes de usar este método. Seleccione el comando "Proyecto" → "Referencia" en el menú de Visual Basic y seleccione "Microsoft Scripting Runtime" en el cuadro de diálogo emergente "Referencia". En el cuadro de diálogo emergente "Referencia", seleccione la casilla de verificación "Microsoft Scripting Runtime" y haga clic en el botón "Aceptar" para hacer referencia al objeto.

Ejecute el programa, haga clic en el botón "lt;lt;", seleccione la carpeta que desea eliminar y luego haga clic en el botón "Eliminar". Aparecerá un cuadro de diálogo con un mensaje. ¡OK!" " para eliminar la carpeta, como se muestra en la Figura 13.7.

El código clave es el siguiente:

Dim STStr As String

Dim SSTr As String

Dim fso As New FileSystemObject

Subcomando privado1_Click()

Atenuar FPaths como cadena

Atenuar fso como nuevo objeto de sistema de archivos

Subcomando privado1_Click()

Atenuar FPaths como cadena

FPaths = FPath$(Me.hWnd, "Examinar carpetas del sistema")

Texto1.Text = FPaths

End Sub

Subcomando privado2_Click()

Dim c como entero

Llamar a RiStr

c = MsgBox("Confirmar para eliminar esta carpeta? " , 17, "mensaje rápido")

Si c = vbOK Entonces

fso.DeleteFolder Text1.Text 'Eliminar la carpeta

MsgBox " ¡La carpeta se ha eliminado correctamente!", 64, "Mensaje rápido")

Si c = vbOK entonces

fso.DeleteFolder Text1.Text 'Eliminar la carpeta

MsgBox "¡La carpeta se ha eliminado correctamente!, 64, "Mensaje rápido"

End If

End Sub

Private Sub RiStr()

Dim YWJ, MWJ, L como cadena, S como cadena * 1, ASCIIN, i como entero

MWJ = ""

YWJ = RTrim $(Texto1 .

L = Len(YWJ)

Para i = 1 a L

S = Derecha$(YWJ, i)

Si Izquierda$(S, 1) = "\" Entonces

Atenuar RStr como cadena

RStr = Derecha$(YWJ, i - 1)

SSTr = Mid(Text1.Text, 1, Len(Text1.Text) - Len(RStr))

Salir Sub

Fin si

Siguiente i

p>

Fin del subtítulo