主题：关于文件监视器

e.fullpath是创建的文件，包括路径，不单单是目录。   你不过是想将生成的文件复制到c:\111的目录而已，应该这样：   FileSys.MoveFile(e.FullPath, "C:\111\" & FileSys.GetName(e.FullPath))

 

我执行了，不好用啊。另外我想复制后就把创建的目录删除掉。

FileSys.MoveFile(e.FullPath, "C:\111\" & FileSys.GetName(e.FullPath))
FileSys.DeleteDirectory(Filesys.GetParentPath(e.FullPath), 2, 2)

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.table

贺老师：您试下。我试验后发现改名了，但是filechanged事件中的这两条：

FileSys.MoveFile(e.FullPath, "C:\111\" & FileSys.GetName(e.FullPath))
FileSys.DeleteDirectory(Filesys.GetParentPath(e.FullPath), 2, 2)没有执行，

就是说没有复制并删除，是什么原因呢？

你这个问题始终没有搞清楚。是同时传入txt文件和照片.jpg文件呢，还是原本就有txt文件而光是传入.jpg文件。如果是两个文件同时传入，是一种结果。而单传入.jpg文件又是一种结果。估计你是办理二代身份证的单位，没这么复杂，两台电脑通过网上邻居就可以搞定，不用这么折腾。

删除FileChanged中的事件代码，在FileCreated设置代码：

 

Dim s As string = FileSys.ReadAllText("c:\data\11.txt", Encoding.Default)
dim n As String = FileSys.GetParentPath(e.FullPath) & "\" & s & ".jpg"
FileSys.RenameFile(e.FullPath, s & ".jpg")
FileSys.MoveFile(n, "C:\111\" & FileSys.GetName(n))

是这个流程：先把本人信息通过串口无线扫描枪扫描，以文本文件的形式传过来。再传过来本人照片，以文件文件内容去改动图片文件名称。可能是我搞复杂了