ファイル読み込で、各マシンからはLAN経由でアクセス
していないと思われます。
そこで
FILE$=WINOPENDLG("ファイルを開く","男性.csv"," (*.csv) ",0)
if FILE$<>chr$(&H1B) then
DISLEN=len(FILE$)
DIRENV$=mid$(FILE$,1,DISLEN-9)
'print DIRENV$:DTDRV$=DIRENV$
SZ=0
open FILE$ for input as #1
print "ファイル情報を読み込みします。"
input #1, A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$
'
close #1
print "ファイル情報を読み込みしました。"
else
goto *PGMEND
end if
