1 FO$="C:\FBASICV63\売上\"
2 open FO$+"お得意さん\男性.csv" for input as #1
3 input #1,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$,A$
4 close
5 open FO$+"お得意さん\男性.csv" for create as #1
ファイル読み込で、各マシンからは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
