ciao ragazzi allora aprto subito col mio codice...

Option Explicit
Dim b As String
Dim a As String
Dim c As Long
Dim d As Long
Dim e As Long
Dim f As String
Dim g As String
Dim h As String



Private Sub Combo2_Click()
Select Case Combo2.ListIndex
Case 0
c = 4839817
d = 10875745
e = 10890757

End Select
End Sub

Private Sub Command1_Click()
'scrittura primo indirizzo
b = "/Exe/Java/"
Seek #1, c
Put #1, , b

'scrittura secondo indirizzo
Seek #1, d
Put #1, , b

'scrittura terzo indirizzo
h = "/Exe/Java"
Seek #1, e
Put #1, , h
End Sub

Private Sub Command2_Click()
'lettura primo indirizzo
Seek #1, c

a = Space$(11)
Get #1, , a
Text1.Text = a
' lettura secondo indirizzo
Seek #1, d

f = Space$(11)
Get #1, , f
Text3.Text = f

'lettura terzo indirizzo

Seek #1, e

g = Space$(10)
Get #1, , g
Text5.Text = g
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub File1_Click()

Open (File1.Path & "\" & File1.FileName) For Binary Access Read Write As #1
'lettura primo indirizzo
Seek #1, c

a = Space$(11)
Get #1, , a
Text1.Text = a
' lettura secondo indirizzo
Seek #1, d

f = Space$(11)
Get #1, , f
Text3.Text = f

'lettura terzo indirizzo

Seek #1, e

g = Space$(10)
Get #1, , g
Text5.Text = g
End Sub

Private Sub Form_Load()
Combo2.AddItem "z500rexw4"
Combo2.ListIndex = 0
End Sub


ecco questo codice funziona perfettamente in un file binario sostituisce /media/etc/ in /Exe/Java/...solo che a me interesserebbe che dopo /Exe/Java/ ci sia un byte vuoto..ho provato a modificarlo con il punto....gli zeri...ma niente...non ho trovato molto in giro...io dopo la modifica vorrei che dopo java/ ci sia un byte vuoto rappresentato poi in esadecimale con 00....se avete cvapito potete aiutarmi ...se no chiedete che vi dò ulteriori chiarimenti...