是否有过这样的经历，想要把几个位于不同文件夹的文件统一复制或转移到另外一个文件夹，甚至是不同盘符下的文件复制和移动，于是不停地在不同文件夹和硬盘分区之间复制粘贴复制粘贴？如果工作量小，这并不是一个问题，但是如果你有海量的东西需要复制移动，这连续的切换恐怕得累死。今天Chada给大家推荐的小软件Piky Basket可以轻松地解决这个问题.
Piky Basket的工作原理很简单：它先建立一个暂时的文件存放中心，用以记忆用户所选取的位于不同文件夹内的文件地址，然后进行批量复制和移动。下面Chada用图解来介绍一下Piky Basket的三个主要功能：
Piky Basket下载地址：
一、批量复制和移动文件
这个功能是Piky Basket的主打功能通过简单的操作，你可以把多个文件夹的文件复制和转移到其他地方，比如说另一个文件夹，另一个硬盘分区，移动存储或者是待烧录的光盘[需要烧录软件支持]。操作方法如下图：
在需要复制/移动的文件上点击右键，选择”Piky Basket-Drop into the basket”，然后继续寻找下一个需要复制/移动到同一目标文件夹，按照同样的方法操作。
然后找到你需要存放文件的目标文件夹，选择Copy All[复制已选文件]或者是Paste All[移动已选文件]。
二、快捷复制文件地址
复制批量文件的地址同样是一件麻烦的事，但是使用Piky Basket也同样可以轻松解决这个问题。
在想要获得文件地址的文件或者是文件夹，用右键选取该文件(夹)，然后选择Copy-pmorths-to-clickboare.然后在记事本或者是其他文本编辑器用Ctrl+V快捷键粘贴，接着用同种方法很快就可以将所需要的文件地址找出。
三、快速用命令行运行程序
有时候需要用命令行打开位于某个文件夹的程序进行运行，如果一个一个字母敲出地址的话也会手酸，而复制文件管理器上的地址也只能到所需运行程序的目录文件夹而不能直接在命令行运行目标文件。而使用Piky Basket可以轻松打开。
只需在需要用命令行运行的程序上点击右键，选择”Piky Basket - Command Prompt Here”即可将该程序文件直接用命令行打开。这几天Chada在修改一些插件的MO文件的时候经常需要运行Poedit的msggunfmt.exe组件，Pick Basket的这一功能可算是帮了大忙。
热门文章排行
宽带山热帖排行您的位置：> -&
-& >下载 档案号：#55828
软件授权：
软件大小：
软件语言：
软件评级：
官方主页：
更新时间：
应用平台：
复制到论坛
复制到博客
by xdowns.com绿盟
绿盟口号! 伸出你的手 - 绿色分享:
官方评级：4/6661
同类软件推荐
本类下载排行查看: 1225|回复: 4
大神求助：批量移动指定文件到指定文件夹
阅读权限10
在线时间 小时
目标：把D盘的 包含某些特征的文件（有列表），移动到E盘包含某些特征的文件夹（文件夹名列表）中。
比如D盘有&&aaa_1.pdf, aaa_2.pdf, aaa_3.pdf,&&bbb_1.pdf, bbb_2.pdf, bbb_3.pdf,&&所有的文件名和文件夹名有列表。
E盘有文件夹 aaa_2013，bbb_2013
把含有相同特征文件移动到特征类似的文件夹中，含aaa的文件移动到含aaa的文件夹中，含bbb的文件移动到含bbb的文件夹中。
希望大家帮帮忙。。
阅读权限100
在线时间 小时
& & name &D:\aaa_1.pdf& as &E:\aaa_2013\aaa_1.pdf&
& & kill&&&D:\aaa_1.pdf&
阅读权限10
在线时间 小时
& & name &D:\aaa_1.pdf& as &E:\aaa_2013\aaa_1.pdf&
& & kill&&&D:\aaa_1.pdf&
不对。。。
阅读权限10
在线时间 小时
Sub MoveFiles()
& & Dim fso As Object
& & Dim strFolderPath, strFilePath, strFolderName, strFileName As String
& & Dim i As Integer
& & Dim mOpen
& & Set fso = CreateObject(&Scripting.FileSystemObject&)
& & strFolderPath = ThisWorkbook.Worksheets(&Sheet1&).Cells(2, 4)
& & strFilePath = ThisWorkbook.Worksheets(&Sheet1&).Cells(2, 5)
& & With ThisWorkbook.Worksheets(&Sheet1&)
& && &&&i = 2
& && &&&While .Cells(i, 2).Value && &&
& && && && &strFolderName = .Cells(i, 1).Value
& && && && &strFileName = .Cells(i, 2).Value
& && && && &strFolderName = strFolderPath + &\& + strFolderName + &\& + strFileName + &.pdf&
& && && && &strFileName = strFilePath + &\& + strFileName + &.pdf&
& && && && &fso.movefile strFileName, strFolderName
& && && && &i = i + 1
& && &&&Wend
& & End With
& & MsgBox (&移动已完成&)
阅读权限10
在线时间 小时
本帖最后由 junezzzz 于
17:06 编辑
见附件，按表格要求输入就可以了
最新热点 /1
本活动是由微软（中国）有限公司发起，申请通过者可以得到Office 365企业级E3 试用账号，并享有全套Office 365客户端及云端高效、协作办公体验。 机会有限，先到先得！
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师}