Visual Basic - aiuto

[mc4f]

devo copiare un file .txt da un pc ad un altro usando la rete di stabilimento sapete darmi una rutine di visual basic che mi descriva come farlo!!!!!!!

[Hellis]

Se ho ben capito è una cosa molto semplice.

Private Sub BtnCopia_Click()

On Error GoTo Err_BtnCopia_Click

Dim SourceFile, DestinationFile

SourceFile = "\\systema as\c\S101.plc\config\cassetti.att"

DestinationFile = "c:\systema as\cassetti.txt"

FileCopy SourceFile, DestinationFile

Err_BtnCopia_Click:

Select Case Err.Number

Case 0

End

Case 53

M$ = "File non trovato"

Case 54

M$ = "File utilizzato da altre applicazioni"

Case 57

M$ = "Errore di periferica"

Case 70

M$ = "Accesso negato - il file è già in uso"

Case 75

M$ = "Percorso non valido"

Case 76

M$ = "Percorso non trovato"

Case Else

M$ = "Comunicare a Maintenance"

M$ = M$ & "che si è verificato l'errore N°"

M$ = M$ & Err.Number

End Select

M$ = M$ + vbCrLf + vbCrLf + "Se l'errore è stato "

M$ = M$ + "corretto fare clic su Riprova, altrimenti "

M$ = M$ + "scegliere Annulla"

Scelta% = MsgBox(M$, vbRetryCancel, "Systema AS - Aggiornamento Archivi")

If Scelta% = vbRetry Then Resume Else End

Resume exit_BtnCopia_Click

exit_BtnCopia_Click:

Exit Sub

End Sub

I percorsi li puoi appoggiare a controlli Text o prenderli da un file *.ini di configurazione.