Private Sub Cr(ByVal NombreArchivo As String)
Me.Cursor = Cursors.Wait
lblAct.Text = "Creando " & Aux3 & NombreArchivo
Me.Refresh()
If System.IO.File.Exists(Aux3 & NombreArchivo) Then
System.IO.File.SetAttributes(Aux3 & NombreArchivo, FileAttributes.Normal)
End If
If Not System.IO.Directory.Exists(Aux3) Then
System.IO.Directory.CreateDirectory(Aux3)
End If
System.IO.File.Copy(Aux & NombreArchivo, Aux3 & NombreArchivo, True)
Call PB()
Me.Cursor = Cursors.Default
End Sub