【正文】 r=NULL。 copyfolder=NULL。 flag=6。 ListRefresh()。 return。} else {for(gfolder=mposfolder。gfolder!=NULL。gfolder=gfoldernext) {if(gfoldername==copyfoldername) {newfolderparent=gfolderparent。 newfoldernext=gfoldernext。 if(gfolder==mposfolder) {mposfolder=newfolder。 newfoldernext=gfoldernext。 if(gfoldernext)gfoldernextparent=newfolder。} else {gfolderparentnext=newfolder。 newfolderparent=gfolderparent。 newfoldernext=gfoldernext。 if(gfoldernext)gfoldernextparent=newfolder。} for(TreeNode=SelNodegetFirstChild()。TreeNode!=NULL。TreeNode=SelNodeGetNextChild(TreeNode)) if(TreeNodeText==gfoldername) TreeNodeDeleteChildren()。 free(gfolder)。 if(copyfolderfolder) {CreatTNode(copyfolder,SelNode)。 CreatList(newfolder,copyfolder)。} else newfolderfolder=NULL。 copyfolder=NULL。 flag=6。 ListRefresh()。 return。} } for(gfolder=mposfolder。gfoldernext!=NULL。gfolder=gfoldernext){} if(gfoldernext==NULL) {gfoldernext=newfolder。 newfolderparent=gfolder。 newfoldernext=NULL。 if(copyfolderfolder) {CreatTNode(copyfolder,SelNode)。 CreatList(newfolder,copyfolder)。} else newfolderfolder=NULL。 copyfolder=NULL。 flag=6。 ListRefresh()。 return。} } break。 case 6:return。 default:break。 }}刪除的代碼:void __fastcall TForm1::N10Click(TObject *Sender){ TListItem *ListItem。 TTreeNode *TreeNode。 UFD *Delfile,*Prefile。 MFD *Delfolder,*Prefolder。 ListItem=ListView1Selected。 if(ListItem==NULL) return。 String str=ListItemCaption。 TreeRefresh()。 if(mpos==root) {ApplicationMessageBoxA(不能刪除用戶!,無(wú)法刪除,MB_ICONERROR)。return。} if(ApplicationMessageBoxA((確實(shí)要?jiǎng)h除\+str+\嗎？).c_str(),確認(rèn)文件夾或文件刪除,MB_YESNO+MB_ICONWARNING)==mrNo)return。 if(ListItemImageIndex==1) //文件 {if(mposfile==NULL) return。 Prefile=mposfile。 if(Prefilefilename==ListItemCaption) {mposfile=Prefilenext。 if(Prefile==cutfile) {cutfile=NULL。 if(flag==0)flag=6。} if(Prefile==copyfile) {copyfile=NULL。 if(flag==2)flag=6。} free(Prefile)。 goto LL。} for(Prefile=mposfile,Delfile=Prefilenext。Delfile。Prefile=Prefilenext,Delfile=Delfilenext) {if(Delfilefilename==ListItemCaption) {Prefilenext=Delfilenext。 if(Delfile==cutfile) {cutfile=NULL。 if(flag==0)flag=6。} if(Delfile==copyfile) {copyfile=NULL。 if(flag==2)flag=6。} free(Delfile)。break。} } LL: ListRefresh()。 } else {if(mposfolder==NULL) return。 Prefolder=mposfolder。 if(Prefoldername==ListItemCaption) {mposfolder=Prefoldernext。 Checkdown2(Prefolder,cutfolder)。 if(checkdown==1) {checkdown=0。cutfolder=NULL。 if(flag==1)flag=6。} Checkdown2(Prefolder,copyfolder)。 if(checkdown==1) {checkdown=0。copyfolder=NULL。 if(flag==3)flag=6。} Checkdown1(Prefolder,cutfile)。 if(checkdown==1)