Che ne pensate di questa istruzione?

FileOpen(intFileDati, My.Application.Info.DirectoryPath & "\BRANI.DAT", OpenMode.Random, , , Len(udtDiscoCorrente))