主题：关于文件监视器

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)

删除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))