Impossibile aprire in output un file in rete locale

Buonasera amici.
Mi succede la seguente cosa strana: un semplice eseguibile VB6 che risiede su un computer di una rete locale che funge da server, scrive un file di testo (Open For Output, Print#, Close). Tutti i PC della rete, tranne uno, eseguono il programma regolarmente: se il file non esiste viene creato, se esiste viene riscritto da capo. Il problema sta in quel "tranne uno": da un client se il file non esiste viene creato, se esiste si verifica l'errore 52 "Numero o nome di file non valido". Il problema ha cominciato a manifestarsi da circa una settimana; il programma non ha subito modifiche importanti.
Tutti i PC hanno Windows 10, tranne un vecchio XP (ma non è quello problematico). Il numero attribuito al file è generato con FreeFile.
Che diavolo può essere successo?
Grazie e Buon Natale.

Puoi mostrare il nome del file usato per la Open che fallisce?

Ho minimizzato il codice.

Private Sub Command1_Click()
    'QUESTA FUNZIONA SOLO SE IL FILE NON ESISTE
    Open "\\Server\AFS\test.txt" For Output As #1
    Print #1, "AAAAAAAA"
    Close #1
End Sub

Private Sub Command2_Click()
    'QUESTA FUNZIONA SEMPRE
    Open "C:\Temp\test.txt" For Output As #1
    Print #1, "AAAAAAAA"
    Close #1
End Sub

Il comportamento è lo stesso sia con l'eseguibile sul server sia che si trovi in locale.
Naturalmente la cartella AFS sul Server è condivisa con EveryOne in R/W, infatti dalle altre postazioni non ci sono problemi.
Non credo che abbia a che fare con VB6 e, per curiosità, ora provo con un altro linguaggio.

Controlla le autorizzazioni della cartella C:\Temp di quel pc e confrontale con qulle degli altri pc.

Come dicevo non è un problema "di linguaggio". Lo stesso esperimento con VB.Net:

Imports System.IO

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim oSW As StreamWriter

        Try
            oSW = New StreamWriter("C:\Temp\Test.txt")
            oSW.WriteLine("AAAAAAAAA")
            oSW.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Dim oSW As StreamWriter

        Try
            oSW = New StreamWriter("\\Server\AFS\Test.txt")
            oSW.WriteLine("AAAAAAAAA")
            oSW.Close()

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
End Class

produce un analogo risultato e cioè:
- la scrittura nella cartella locale C:\Temp (Button1_Click) avviene sempre regolarmente
- la scrittura nella cartella di rete condivisa \\Server\AFS (Button2_Click) avviene solo se il file Test.txt non esiste, altrimenti viene sollevata l'eccezione "Richiesta non supportata"

@gibra
La cartella C:\Temp è locale e non dà problemi.
La cartella di rete è \\Server\AFS ed è condivisa con Everyone in lettura/scrittura/esecuzione/controllo completo

Piccola appendice.
- Anche se creo una nuova cartella sul server ugualmente condivisa come \\Server\AFS il problema si presenta identico.
- Anche mappando la cartella sul server come unità il comportamento è identico

prima degli aggiornamenti funzionava anche su xp(mi pare di capire)?

Sì Vincenzo, ma anche ora funziona sulla macchina XP e su tutte le altre tranne una. Non c'è stata nessuna modifica nel programma, infatti ho potuto replicare il problema con mini-programmi in linguaggi diversi capendo che non era un problema di linguaggio e per questo ho spostato il thread in questa sezione.

⁹come sono configurate le macchine in quanto a nome dominio/gruppo di lavoro e con quale utente accedi allo share?

Stesso gruppo di lavoro (WORKGROUP), utenti amministratori tranne quello dell' XP.