Buscar carpeta en puertos USB de un PC

¿

¿Podrías pasarme ese código?

¡Gracias! Y perdona por la tardanza. El código lo uso desde hace tiempo y va muy bien, pero quería mejorar ese error, solucionado con un MsgBox, cuando se pone la unidad de almacenamiento en otro puerto distinto. Ahí va, no recuerdo de quien es.

Private Sub cmdQuit_Click()
On Error GoTo Err_salir_Click

Dim Ruta As String
Ruta = "E:\COPIAS\" '"C:\Users\Programas\Desktop\COPIA\"

Dim VPath As String
Dim VDiaSemanaTxt, VNombreCopiaSeguridad As String
VDiaSemanaTxt = Format(Now, "dddd d MMMM yyyy")
VNombreCopiaSeguridad = VDiaSemanaTxt & ".accdb"
VPath = "C:\Users\Programas\Desktop\COPIA\"
Dim Vcopia As Integer
Vcopia = MsgBox("CONECTA LA UNIDAD EXTERNA PARA HACER COPIA DE SEGURIDAD. UNA VEZ DETECTADO PULSA ACEPTAR." & vbCrLf & vbCrLf & _
" Esta copia sustituirá a la anterior y lo hará con el nombre: " & vbCrLf & _
vbCrLf & "( " & VNombreCopiaSeguridad & " )", vbYesNo + vbQuestion, "ATENCION -  (COPIA DE SEGURIDAD) ")

Select Case Vcopia
Case vbYes
DoCmd.OpenForm "Copiando"

'¿poner mensaje/etiqueta aquí de espere un momento. Copiando...?

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFile CurrentProject.FullName, Replace(Ruta, ".", "." & Format(Now, "wyy") & ".")
Set fso = Nothing
DoCmd.Quit
Case vbNo
DoCmd.OpenForm "Bienvenida"
'MsgBox ("HA ELEGIDO NO") 'Ok
'DoCmd.Quit
End Select
Exit_salir_Click:
Exit Sub
Err_salir_Click:
MsgBox "¡Vaya!, Parece que el lápiz no está conectado." & Chr(13) & Chr(13) _
& "Asegurate de ponerlo en el puerto de siempre.", , "CONTROL COPIAS DE SEGURIDAD" 'MsgBox Err.Description
Resume Exit_salir_Click
End Sub

Yo tengo el problema de que la base de datos no me deja copiarse en otro sitio mientras esta abierta.

¿Has pensado en hacer la copia de seguridad en google drive?

Así no tendrías el problema de la unidad ya que siempre seria la misma. Yo la utilizo a diario y va de lujo. Tengo copia de seguridad en el ordenador y en la nube a la vez.

¡Gracias! Es buena idea, no había pensado en la nube. Voy a indagar ya que no he usado nunca la nube y no sé cómo funciona exactamente. Pero es lo más seguro a la hora de tener problemas de restablecer copia, siempre está ahí. Gracias de nuevo