J8 01.08.21i. [FILE2] ドライブ間ファイル移動] 02.01.10 混 L=11881 C=0074 ＊ファイル名 FILE2.MYX  ＊仕事 ドライブ間ファイル移動 ＊ 但し、削除出来ないファイル（A M S SYS CD-R 等）は除外  ＊改訂履歴 1.00 2001.08.22 公開 ＊ 1.01 2001.08.24 A S M SYS を選択肢から除外 ＊ 1.02 起動時にきょうこＤＭＹが有れば削除 ＊ ファイル名も全角大文字で統一 ＊ キ―ワ―ドエラ―の修正 ＊ 1.03 2001.08.25 同名ファイル浮かび対策 ＊ TF に出ないドライブの除外を中止 ＊ A S M SYS 等も青色で見えるように変更 ＊ 1.04 2002.01.10 WINMT で範囲外エラーになる不具合修正  ＊生成ファイル ALL_FILE.MYX PATH.MYX DATA.DAT ＊使用ファイル きょうこＤＭＹ(自動作成＆自動削除) ＊設定変更 WSIZE ( SETC:10 ) ＊動作確認 マイツ―ル for Windows 1.16 on Windows98 ＊ フリーウエアマイツ―ル 1.00 on Windows98se ＊ 東芝 SS3380（ Pentium2/400MHz 128MB メモリ ) ＊ 自作 飛流３ ( Athlon1.3GHz 512MB メモリ ) ＊免責 例によって、全てあなたの責任で行って下さい。 ＊ いかなる保証も出来ません。m(__)m  ＊登録方法 WFL で書いて FILEX プログラム登録 ＊前提条件 きょうこＤＭＹがない事  ＊＜使用方法＞ ＊ RUN:FILE2[ENTER] ＊但し、他に、PRO命令等での FILE2 というオートが無い事が条件。  ＊使用変数 Z90,Z91 V39,V40, V11,V12,V13,V14,V15,V16,V17,V18   CHF:M: ＊他のファイルを削除出来る位置に  ＊マイツールが入ってるドライブの取得  CHKFILE:M: ＊ＨＤＤ確認  STRCPY:ABCDEFGHIJKLMNOPQRSTUVWXYZ::Z37:1:1:"V39": ＊V39 MT のドライブ  *----------------------------------------------------------------------* ＊ユ―ザ―カスタマイズ部分（全画面表示なら、「＊」を交換して下さい。）   WSIZE:2:::::Z90=Z40: ＊部分表示用 * WSIZE:1:::::Z90=Z40: ＊全画面表示用   Z91=Z39/2: ＊表示桁数の半分  ＊種類が決まってるなら、その機種の左の「*」を外し、V40="" の左に ＊「*」を付ければ、少々速くなり、画面のちらつきも無くなります。 ＊特に画面が乱れる機種の方は V40="" 以外を選択して下さい。   V40="": ＊自動検索 * V40="WINMT_MTVIEW": ＊MT_PATH.CTL * V40="WMTV2_MTFREE": ＊95_PATH.CTL  ＊ファイルが沢山有る場合に「*」を外して下さい * SETC:10:3:120:ESC: *----------------------------------------------------------------------*  ＊一覧作成  ＊ドライブ一覧作成  DPOFF:   IF V40="" THEN:   ＊マイツール種のチェック  DOS:"DIR *.CTL > DATA.DAT": ＊DOS窓が出て鬱陶し  V0=V39+":DATA.DAT":  SGET:V0:7:100:::  SH::S=MT_PATH *:::   IF CNT[L]>0 THEN:V40="WINMT_MTVIEW":  ELSE:V40="WMTV2_MTFREE":  ENDIF:   ENDIF:  ＊ドライブ情報ファイルの読み込み  IF V40="WINMT_MTVIEW" THEN:  V0=V39+":MT_PATH.CTL": ＊WINMT MTVIEW  SGET:V0:3:F=6,4,68,4::::  ELSE:  V0=V39+":95_PATH.CTL": ＊WMTV2 MTFREE  SGET:V0:3:F=6,4,290,12::::  ENDIF:   DC:1:  CTP:1:2:1:3: ＊ドライブ名を大文字で統一  ICS:2:1::  CT:PATH.MYX] ドライブ一覧:  WFL:PATH.MYX::  ＊ファイル一覧作成  TF:ESC: SV: RVON: RV: RVOFF:  CFA:4:2:21:8:3:5:6:1:8:21:11:  DIA: SETX:1:2:2:3:3:Z37:ESC:  BC:2: ＊現在ファイルフラグクリア  CTP:1:2:1:3: ＊ファイル名を大文字で統一   SH::C10<>"フロッピーファイル２":C3<>""::: ＊ややこしいから除外  ＊きょうこＤＭＹのチェック ＊前回エラ―終了対策  SHD::C3="きょうこＤＭＹ"::::  IF CNT[L]>0 THEN:  FILE:5:きょうこＤＭＹ::ESC: ＊元ファイルの削除  ENDIF:  X:   SETP:3:C1<15::1:: ＊S M A SYS 青色に  CT:ALL_FILE.MYX] ＭＴファイル一覧:  WFL:ALL_FILE.MYX::  ＊認識しているドライブだけに絞る ＊配布用追加  SV:  X:  RFL:PATH.MYX:  UPD:::1,:7,:+:1:4:: ＊ＴＦ表示ドライブのチェック  SH::CT>0::: ＊ＴＦに出ているドライブ  IF CNT[L]<2 THEN: ＊１つはデフォルトドライブ  DPON:  ACCP:ユ―ザ―登録ドライブが複数ありません。:?:  STOP:  ENDIF:  X:  SHU::C4=""::Y:ESC: ＊１ファイルだけのドライブの  SETP:3:C4=""::5:: ＊ファイルを移動させた時用  DL:4-5,T: ＊項目行等削除   WFL:PATH.MYX::  RVON:RV:SV:RVOFF: ＊ALL_FILE を画面に戻す   DPON:  *---------------------------------------------------------------------  ＊ファイル選択  RBB:PATH.MYX:   COLOR:7:1:2:  LOC:Z90-6:6:PRINT: :  LOC:Z90-5:6:PRINT: ファイルのタイトル一覧を見たい時は :  LOC:Z90-4:6:PRINT: タイトルボタンをクリック :  LOC:Z90-3:6:PRINT: :  LOC:Z90-2:6:PRINT: F でＦＩＬＥ命令に移行します。 :  LOC:Z90-1:6:PRINT: :  LOC:1:Z91:WINDOW:1:8:40:1:  V0="ESC":ACCP:移動させたいファイルは？ [ 終了…ｴｽｹｰﾌﾟ] :?: V11=V0:  IF V0="ESC" THEN:STOP:ENDIF:  TOKANJI:V11:"V11": ＊全角で統一  TOUPPER:V11:"V11": ＊大文字で統一  IF V11="Ｆ" THEN::FILE:?:STOP:ENDIF:   IF V11="ＳＹＳ" OR V11="Ａ" OR V11="Ｍ" OR V11="Ｓ" THEN:  V0="ESC":  ACCP:S M A SYS は移動出来ません、CPD でどうぞ！ [再選択…望 :?:  IF V0="ESC" THEN:STOP:ENDIF:  GOTO ＊ファイル選択:  ENDIF:   SV: ＊ファイル一覧を記憶   DPOFF:   SH::C3=V11::::  IF CNT[L]<1 THEN:  X:DPON:  V0="ESC":ACCP:V11 というファイルはありません [再選択…望 :?:  IF V0="ESC" THEN:STOP:  ELSE:GOTO ＊ファイル選択:  ENDIF:  ENDIF:  V12=[3,5]: ＊固定長／可変長  V13=[3,6]: ＊ページ数  V14=[3,7]: ＊現在ドライブ  V15=[3,10]: ＊備考  V16=[3,9]: ＊キーワード  X: ＊ファイル一覧を表示  ＊ドライブ選択  DPON:  LOC:1:Z91:WINDOW:1:8:40:1: ＊ドライブ情報を窓に出す  COLOR:7:1:2:  LOC:Z90-7:6:PRINT: :  LOC:Z90-6:6:PRINT: 移動先に同名ファイルが有る場合、 :  LOC:Z90-5:6:PRINT: エラー終了する事をご了承下さい。 :  LOC:Z90-4:6:PRINT: :  LOC:Z90-3:6:PRINT: 別ドライブに同名ファイルが有る :  LOC:Z90-2:6:PRINT: 場合は、名前を変更頂きます。 :  LOC:Z90-1:6:PRINT: :  V0="ESC":ACCP:どのドライブに移動させますか？ [中止…ｴｽｹｰﾌﾟ] :?:V17=V0:  IF V0="ESC" THEN:STOP:ENDIF:   DPOFF:  TOUPPER:V17:"V17": ＊大文字に変換  TOASCII:V17:"V17": ＊半角文字に変換  SH:PATH.MYX:C1=V17:::  ISCOLOR:4:1:  X:  RVON:RV:SV:RVOFF:   IF CNT[XL]<1 THEN:  DPON:  COLOR:1:6:2:  LOC:Z90-3:6:PRINT: :  LOC:Z90-2:6:PRINT: 窓の１列目から選んで下さい。 :  LOC:Z90-1:6:PRINT: :  BEEP:GOTO ＊ドライブ選択:  ENDIF:   IF Z35=5 THEN:  DPON:  LOC:1:Z91:WINDOW:1:8:40:1: ＊ドライブ情報を窓に出す COLOR:1:6:2:  LOC:Z90-4:6:PRINT: :  LOC:Z90-3:6:PRINT: ファイル一覧に無いドライブです。 :  LOC:Z90-2:6:PRINT: 確かに接続されていますね？ :  LOC:Z90-1:6:PRINT: :  V0="ESC":ACCP:V17 ドライブで宜しいですね？ [ 再選択…ｴｽｹｰﾌﾟ ]:?:  IF V0="ESC" THEN:D:GOTO ＊ドライブ選択:ENDIF:  ENDIF:   IF V17=V14 THEN:  DPON:  V0="ESC":ACCP:現在と同じドライブです [ 再選択… ] :?:  IF V0="ESC" THEN:D:STOP:  ELSE:GOTO ＊ファイル選択:  ENDIF:  ENDIF:  ＊コピ―先ダミ―の作成  IF V12="F" THEN: ＊固定長Ｆ型  FILE:1:きょうこＤＭＹ:V17:V12:V13:V15:ESC:  ELSE: ＊可変長Ｖ型  FILE:1:きょうこＤＭＹ:V17:V12:V15:ESC:  ENDIF:   DPON:  ＊コピ―と元ファイルの削除  IF V16="" THEN: ＊キーワード無し  CPD:V11:きょうこＤＭＹ:: ＊ファイルのコピー  DPOFF:  FILE:5:V11:ESC: ＊元ファイルの削除  DPON:  ELSE: ＊キーワード付き  V0="ESC":ACCP:V11 のキ―ワ―ドは？ :?:  IF V0="ESC" OR V0="" THEN:STOP:ENDIF:  V16=V0:  CPD:V11:V16:きょうこＤＭＹ:: ＊ファイルのコピー  FILE:5:V11:V16:ESC: ＊元ファイルの削除  ENDIF:   V18=V11:  ＊別ドライブの同名ファイル浮かび上がり対策  DPOFF:  TF:ESC: SV: RVON: RV: RVOFF:  CFA:4:2:21:8:3:5:6:1:8:21:11:  DIA: SETX:1:2:2:3:3:Z37:ESC:  BC:2: ＊現在ファイルフラグクリア  CTP:1:2:1:3: ＊ファイル名を大文字で統一  ＊同名確認  SH::C3=V11:::  X:  DPON:   IF CNT[XL]>0 THEN: ＊新名称  COLOR:1:6:2:  LOC:Z90-7:6:PRINT: :  LOC:Z90-6:6:PRINT: 同名ファイルがあります、 :  LOC:Z90-5:6:PRINT: 規則により同じ名前を付けられません。 :  LOC:Z90-4:6:PRINT: 他の名前を決めて下さい。 ★ 必須 ★ :  LOC:Z90-3:6:PRINT: :  LOC:Z90-2:6:PRINT: 名前は英数なら２文字以上でどうぞ。 :  LOC:Z90-1:6:PRINT: :   V0="ESC":  ACCP:[V18] の新しい名前は？ :?:  IF V0="ESC" OR V0="" THEN:GOTO ＊新名称:ENDIF:  LEN:V0:  IF Z0=1 THEN:BEEP:GOTO ＊新名称:ENDIF:   V11=V0:  GOTO ＊同名確認:   ENDIF:   FILE:3:きょうこＤＭＹ:V11::ESC: ＊ファイル名変更  ＊パスワード  IF V16<>"" THEN:  STRCPY:V16::1:1:1::  IF V0="@" THEN:  FILE:6:V11:1:V16:ESC: ＊プロテクトの種類 @ 1 書禁止  ELSE:  FILE:6:V11:2:V16:ESC: ＊ # 2 読書禁止  ENDIF:  ENDIF:   GOTO ＊一覧作成:   STOP:    きょうこ kyoko@takamiya.com  URL http://www.takamiya.com/