Hacer bucle de pedido de Diskkette

[RsOfT]

Estoy intentado hacer que cuando copio un archivo cualquiera a un diskette si el usuario no ha insertado el disquette, que vuelva y pida el disquete y cuando le den a OK que vuelva a intentar grabar la info, y si no puede lo mismo, que vuelva a pedir el disco, y hasta que no entren en disco que lo siga pidiendo.

Lo intenté hacer con On Error Goto, y comparo el numero del error, pero solamente me funciona el "on error goto" que esta al inicio del Sub, el otro no funciona, , como podría hacer esto que quiero hacer???

La lógica que implemente fue:

Private Sub mnuSincronizar_Click()
On Error GoTo ResumenError
FileCopy App.Path & "\Copia.mdb", "A:\Copia.mdb"

Exit Sub
ResumenError:
Pedir:
If Err.Number = 71 Then
On Error GoTo Error
MsgBox "El disco no se encuentra. Inserte el disco y precio 'OK'", vbExclamation + vbOKOnly, "Error..."
FileCopy App.Path & "\Copia.mdb", "A:\Copia.mdb"
Else
GoTo Continuar
End If
Error:
If Err.Number = 71 Then
GoTo Pedir
End If

Continuar:
MsgBox Err.Number & ": " & Err.Description, vbExclamation + vbOKOnly, "Error..."
End Sub

[Gurrutello]

hola
implemente???
que significa que tu lo creastes????
la verdad aun no entiendo el significado de esa palabra" implementé"
saludos

[RsOfT]

Significa que utilicé.
y ya resolvi mi problema...
gracias

[OXIGENO]

Hola RsOfT.... te hago una pregunta... si lo estas haciendo en ASP... me imagino que lo vas a poner en una pagina web!... por lo que mi duda reside en que si usas esa rutina con FSO para copiar datos del disquete del usuario la unidad fisica que va a interpetar el ASP (al interpretarlo del lado del servidor) va a ser la unidad de disquete del SERVIDOR MISMO!
No se si me explico.... pero... si entiendes a que me refiero... dime si estoy o no equivocado... ya que quiero salir de esa duda...
Gracias de antemano

[OXIGENO]

ah!... me olvidaba... tambien arme algo parecido en FSO... estoy interesado en el tema... pero... veo que me ganaste de mano y ya solucionaste el problema... por cualquier cosita me avisas!

[RsOfT]

Ups, hubo un error en el lugar en donde postie este mensaje. Lo que pasa es, OXIGENO, que esto que pregunte fue de Visual Basic, no de ASP. ASP no maneja los error de eso forma, creo yo.

SI te fijas en el ejemplo, estoy en una subrutina que es llamada al generarse el evento Click de un boton cuyo nombre le puse sincroninar...

Perdon por el error...

[OXIGENO]

RsOfT!... esta bien!... no tienes que pedir disculpas!... es solo una pequeña consusion...

Pero.. no estas tan errado... mira!... el ASP permite utilizar dos tipos de Scripts uno es el JavaScript y otro es el VisualBasicScript
En VBasicScript hay muchisimos comandos de Visual Basic.. te diria que... "los mas importantes..." entre los que tambien puedes procesar los errores, y puedes manejar FSO sin ningun problema.

Yo tambien programo en Visual Basic.... algunas cositas... como las de este tipo... FSO(por ejemplo) las programo primero en Visual para ver si funcionan como yo quiero... y despues recien las mudo a ASP... ya que con vbscript solo tienes que cambiar algunas lineas (muy pocas).

Ahora no estoy en mi casa... (por lo tanto tampoco en mi PC) asi que cuando lo este... te envio lo que yo arme en FSO en VISUAL...
Solo que en mi caso... no uso una mdb... solo uso un txt... y de ahi hago un tratamiento de datos para luego pasarlos a donde quieras...

Por ahi te sirve!!

Saludos amigo!

[OXIGENO]

Ups!... lo habia puesto dos veces!

[RsOfT]

Bueno, tomare lo de hacerlo en un txt en cuenta, ya que la BD ocupa mucho espacio, si da problemas, lo haré en txt...

[OXIGENO]

hola amigo!
Volvi!
aca te dejo mi codigo.... por si las dudas!

Private Sub Command1_Click()
On Error Resume Next
Dim fso As New FileSystemObject, txtfile, fil1 As File, ts As TextStream
Dim MiMatriz
Set fil1 = fso.GetFile("A:\prueba.txt")
If Err.Number = 53 Or Err.Number = 91 Then
MsgBox "Inserta el disequete maldito bastardo!!!!"
ElseIf Err.Number = 0 And Err.Number <> 53 And Err.Number <> 91 Then
' Lee el contenido del archivo txt.
Set ts = fil1.OpenAsTextStream(ForReading)
' Saltea el primer renglon del txt
ts.SkipLine
' Lee el segundo renglon del txt y lo almacena en una var
s = ts.ReadLine
' Guardo cada palabra del segundo renglon en un array
MiMatriz = Split(s, , -1, 1)
' ubound me da el nro maximo de elementos de el array
Max = UBound(MiMatriz)
' como el array comienza en 0 le sumo 1
Max = Max + 1
' Recorro el array y voy mostrando palabra por palabra
For i = 0 To Max
MsgBox MiMatriz(i)
Next
ts.Close
Else
MsgBox "Error desconocido: " + Err.Number
End If
End Sub