问题描述
请求帮忙哈,本人菜鸟。现在需要一个帮忙,写一个小程序,像执行文件一样的exe,点击能自动运行。程序实现功能是复制文件夹文件名A01或者以B开头的文件到指定路径D:pic下。
解决方案
解决方案二:
复制完毕后在程序里调用另外一个程序的autopi.exe。
解决方案三:
System.IO.Directory.GetFiles系列取得文件列表等,自己根据文件名判断System.IO.Directory.Move移动
解决方案四:
不会编啊。最好有现成的哈。嘿嘿。
解决方案五:
用dos命令多好啊!
解决方案六:
给你写个完整的吧:PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimfiledirAsNewSystem.Windows.Forms.FolderBrowserDialogfiledir.ShowDialog()'选择你要复制的文件目录DimsoucerdirAsNewSystem.IO.DirectoryInfo(filedir.SelectedPath)IfSystem.IO.Directory.Exists("D:pic")=FalseThen'看看有没有这个pic这个目录System.IO.Directory.CreateDirectory("D:pic")EndIfForEachfilelistAsSystem.IO.FileInfoInsoucerdir.GetFiles'遍历文件夹内文件DimfilenameAsString=System.IO.Path.GetFileName(filelist.FullName)Iffilename.Substring(0,3).Equals("A01")=TrueOrfilename.Substring(0,1).Equals("B")Thenfilelist.CopyTo("D:pic"+filename)EndIfNextEndSub
分到用时方知少,给点分我吧,我现在有问题问不了,贴发不出去,嘻嘻
解决方案七:
刚才格式没设好:PrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimfiledirAsNewSystem.Windows.Forms.FolderBrowserDialogfiledir.ShowDialog()'选择你要复制的文件目录DimsoucerdirAsNewSystem.IO.DirectoryInfo(filedir.SelectedPath)IfSystem.IO.Directory.Exists("D:pic")=FalseThen'看看有没有这个pic这个目录System.IO.Directory.CreateDirectory("D:pic")EndIfForEachfilelistAsSystem.IO.FileInfoInsoucerdir.GetFiles'遍历文件夹内文件DimfilenameAsString=System.IO.Path.GetFileName(filelist.FullName)Iffilename.Substring(0,3).Equals("A01")=TrueOrfilename.Substring(0,1).Equals("B")Thenfilelist.CopyTo("D:pic"+filename)EndIfNextEndSub