www.pudn.com > 文件恢复及修补 C 语言源程序.zip > RENAME.C

 
/************************************************************ 
 *          IBM PC "C" Bulletin Board                       * 
 *          Tulsa, OK  918-664-8737                         * 
 ************************************************************/ 
 
 
rename(old, new) 
char *old, *new; 
{ 
        char buff[60]; 
 
        fcbinit(new,buff); 
        bdos(19,buff); 
        fcbinit(old,buff); 
        fcbinit(new,buff+16); 
        bdos(23,buff); 
}