我经常需要完成的任务是打开两个文件夹并将特定文件从一个移到另一个。文件名足够随机,以至于我无法有效地实现自动化。
当前,我需要单击按钮以打开一个文件夹,将其重新放置在屏幕的一侧,单击按钮以打开第二个文件夹,将其重新放置在屏幕的另一侧,然后移动文件。>
在发送打开窗口的命令时,是否可以指定打开窗口的尺寸或位置?这样,我可以使一个按钮打开两个文件夹,在屏幕的每一侧都有一个。
所有使用此系统的计算机都将具有两个监视器,因此“最大化此窗口以监视1”和“最大化此窗口以监视2”的命令也将起作用。
我使用的当前代码
If Len(Dir(CurrentProject.path & "\" & "RecordFiles" & "\" & ID, vbDirectory)) = 0 Then
MkDir CurrentProject.path & "\" & "RecordFiles" & "\" & ID
End If
Dim path As String
path = CurrentProject.path & "\" & "RecordFiles" & "\" & ID & "\"
Shell "cmd /C start """" /max """ & path & """", vbHide
答案 0 :(得分:0)
我开发的工具的简化说明,并且每天将其用作解决类似任务的解决方案:在A3路径的电子表格中,该文件夹指向B3目标文件夹中的start文件夹。右键单击第一行,列出A3以下的所有文件名,这些文件名当前在该路径中。右键单击B3下方的相应单元格,将文件A3移至B3,然后移至下一行中的下一个文件,并通过打开文件资源管理器进行预览。