关于移动文件的问题

snowfly1112 · 发表于 2019-10-29 11:26

本帖最后由 snowfly1112 于 2019-10-30 09:27 编辑

请教大家一下，想做个移动文件的vba ，从多个文件夹移动到一个文件夹，会有重复的文件名，想实现移动过程中，如果目标文件夹含有同名文件，则加一个前缀，如何操作呢？
目的就是不想遗漏原文件，类似于windows中复制时提示是否保留源文件。
需要用到哪些语句呢？谢谢。
现添加了附件。各位兄台帮忙瞧瞧，感谢。

snowfly1112 · 发表于 2019-10-30 09:48

自己顶一下，查了相关资料，显示默认是true，若false估计是不拷贝，现在希望的是若有同名文件则修改一下文件名拷贝进去，excelvba如何处理呢？

limonet · 发表于 2024-6-11 16:35

关键字：test-path

limonet · 发表于 2024-6-11 16:35

Sub limonet()
CreateObject("wscript.shell").Run "powershell push-location " & ThisWorkbook.Path _
& ";dir .\j1 -file | % {move $_.fullname ('.\j1\j2\'+$_.basename+$( if (test-path " _
& "('.\j1\j2\'+$_.name)){Get-Date -Format 'yyyyMMddHHmm'} else {''})+$_.extension)}", 0
End Sub

ykcbf1100 · 发表于 2024-6-11 16:57

练个手，文件移动

ykcbf1100 · 发表于 2024-6-11 16:58

本帖最后由 ykcbf1100 于 2024-6-11 17:17 编辑

练下手。。。

Sub ykcbf() '//2024.6.11
Set fso = CreateObject("Scripting.FileSystemObject")
p = ThisWorkbook.Path & ""
p1 = p & "j1"
p2 = p1 & "j2"
For Each f In fso.GetFolder(p1).Files
If fso.FileExists(p2 & f.Name) Then
f.Name = "重复-" & f.Name
End If
fso.MoveFile f, p2
Next f
End Sub

复制代码

		自动登录	找回密码
密码			免费注册

[求助] 关于移动文件的问题

评分