I am trying to move the entire floppy to network storage to make the retreival of data easier.
This is the coded i have to do it that isnt functioning, it is giving me a bad file name error.
what am i doing wrong?
This is the coded i have to do it that isnt functioning, it is giving me a bad file name error.
what am i doing wrong?
Code:
Private Type Info 'general patient info
label As String * 12
Name As String * 30
gender As String * 1
addr As String * 30
Location As String * 30
Birth As String * 8
phone As String * 12
work As String * 12
Clear As String * 28
Ephone As String * 12
Ework As String * 12
Ename As String * 38
SS As String * 11
C As String * 18
id As Integer
Email As String * 30
End Type
Private Sub Command1_Click()
Dim udtInfo As Info
Open "a:\patient.txt" For Random As #1 Len = 512
Get #1, , udtInfo
With udtInfo
FileCopy "A:\*.*", "v:\" & udtInfo.id
End With
End Sub