请问复制的文件为什么删不掉呢？

xf702

  

子程序名	返回值类型	公开	备 注
创建并复制相片

变量名	类 型	静态	数组	备 注
局_员工信息3	队员个人信息

局_员工信息3.员工相片 ＝ 通用对话框1.文件名
如果真 (文件是否存在 (员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片)) ＝ 真)  ' 文件夹中有相同的文件
如果 (信息框 (“存在相同的文件，是否复制后自动更名？”, #信息图标 ＋ #是否钮, “提示”, ) ＝ #是钮 )
删除文件 (员工相片目录.取相片目录 () ＋ “\” ＋ 编辑框_姓名.内容 ＋ “.jpg”)  ' 删除原来的文件
复制文件 (局_员工信息3.员工相片, 员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片))  ' 复制对话框打开的文件到文件夹
文件更名 (员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片), 员工相片目录.取相片目录 () ＋ “\” ＋ 编辑框_姓名.内容 ＋ “.jpg”)  ' 将复制的文件按编辑框内容重新命名
删除文件 (员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片))  ' 删除文件夹中复制进来的原始文件
信息框 (“请将文件手动更名后重新导入照片！”, #信息图标, “提示”, )
图片框_头像.图片 ＝ #原始头像
返回 ()

.版本 2<br /> <br /> .子程序 创建并复制相片<br /> .局部变量 局_员工信息3, 队员个人信息<br /> <br /> 局_员工信息3.员工相片 ＝ 通用对话框1.文件名<br /> .如果真 (文件是否存在 (员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片)) ＝ 真)  ' 文件夹中有相同的文件<br />     .如果 (信息框 (“存在相同的文件，是否复制后自动更名？”, #信息图标 ＋ #是否钮, “提示”, ) ＝ #是钮)<br />         删除文件 (员工相片目录.取相片目录 () ＋ “\” ＋ 编辑框_姓名.内容 ＋ “.jpg”)  ' 删除原来的文件<br />         复制文件 (局_员工信息3.员工相片, 员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片))  ' 复制对话框打开的文件到文件夹<br />         文件更名 (员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片), 员工相片目录.取相片目录 () ＋ “\” ＋ 编辑框_姓名.内容 ＋ “.jpg”)  ' 将复制的文件按编辑框内容重新命名<br />         删除文件 (员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片))  ' 删除文件夹中复制进来的原始文件<br />     .否则<br />         信息框 (“请将文件手动更名后重新导入照片！”, #信息图标, “提示”, )<br />         图片框_头像.图片 ＝ #原始头像<br />         返回 ()

请问各位大师，通过对话框导入相片到指定文件夹更改原相片，有重复时，先删原来的相片，再复制，再更名，没有问题；但是想把刚复制过来的原始文件也删掉，却删不掉，该怎么写啊。。。

熬夜

你复制有个过程吧  复制执行完再删除啊你这动作刚发出 就删除

熬夜

文件更名 (员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片), 员工相片目录.取相片目录 () ＋ “\” ＋ 编辑框_姓名.内容 ＋ “.jpg”)  ' 将复制的文件按编辑框内容重新命名

【】把上面这里的名字输出下 跟下面的对比下【】


删除文件 (员工相片目录.取相片目录 () ＋ “\” ＋ 取相片文件名 (局_员工信息3.员工相片))  ' 删除文件夹中复制进来的原始文件