home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 March / VPR9703A.ISO / FWINDOWS / Win95 / Macsrv12 / MACSRV12.LZH / FILETEST.MAC < prev    next >
Text File  |  1995-09-05  |  1KB  |  52 lines
  1. // 秀まるおのマクロサーバ　ファイルサービステスト用のマクロです
  2. // （当然のことながら秀丸エディタ用です）
  3. // あらかじめtest.txtといファイルを作っておいてからテストしましょう
  4. //
  5.     run "macserv.exe";
  6.     ddeinitiate "HideMacroServer", "FileService";
  7.     if( !result ) {
  8.         message "ddeinitiate failed";
  9.         endmacro;
  10.     }
  11.     ddeexecute "setcurdir " + directory;
  12.     ddeexecute "copy test.txt test2.txt";
  13.     if( !result ) {
  14.         message "copy failed";
  15.         endmacro;
  16.     }
  17.     ddeexecute "rename test2.txt abc.xyz";
  18.     if( !result ) {
  19.         message "rename failed";
  20.         endmacro;
  21.     }
  22.     if( dderequest( "existfile abc.xyz" ) == "" ) {
  23.         message "renameが失敗したかな？";
  24.         endmacro;
  25.     }
  26.     ddeexecute "delete abc.xyz";
  27.     if( !result ) {
  28.         message "delete failed";
  29.         endmacro;
  30.     }
  31.     message "sizeof test.txt is " + dderequest( "sizeof test.txt" );
  32.     message "existfile abc.xyz is " + dderequest( "existfile abc.xyz" );
  33.     message "timestampof test.txt is " + dderequest( "timestampof test.txt" );
  34.     message "timecountof test.txt is " + dderequest( "timecountof test.txt" );
  35. //    ddeexecute "enumfile *.*";
  36. //    while(1) {
  37. //        $a = dderequest( "findnext" );
  38. //        message $a;
  39. //        if( $a == "" ) break;
  40. //    }
  41. //    ddeexecute "enumdir *.*";
  42. //    while(1) {
  43. //        $a = dderequest( "findnext" );
  44. //        message $a;
  45. //        if( $a == "" ) break;
  46. //    }
  47.     ddeexecute "copy test.txt temp.txt";
  48.     ddeexecute "appendcopytext temp.txt test.txt";
  49.     ddeexecute "exit";
  50.     endmacro;
  51.  
  52.