关于.path的一个问题，求大神指教

ykk1106 发布于 2018-01-19 22:32， 2645 次点击

关于使用.path来获取其目录下的文件并移动到另一个.path所在的目录下

只有本站会员才能查看附件，请登录

使用了DriveListBox ，DirListBox ，FileListBox 三个控件
得到了Dir1.Path ， Dir2.Path 两个值
现在是想要把上面Dir1.Path值中所代表的目录下的文件取出来移动到Dir2.Path值中所在的目录下
然后我看网上的资料说要用这种形式 Dir1.Path & "\1.txt" 来表示.path目录下一个存在的文件
但是我界面中只能看到文件的名字并不能自动写入到后台的代码中请问怎么实现自动取到这个文件名并写入
本人新手，不知道我的思路对不对意思表达的清不清楚，希望大家理解一下。感激不尽

11 回复

ykk11062018-01-19 22:34

还有就是这个移动的语句是不是哪里出错了，一直在提示路径未找到

ykk11062018-01-19 22:37

filecopy + kill 是不是需要先声明一下求指教

suzhanpeng2018-01-20 07:59

Dir1.Path & "\1.txt" 是对的
"Dir1.Path &\10.txt" 和 "Dir2.Path &\" 格式错误

ykk11062018-01-20 09:59

回复 4楼 suzhanpeng

谢谢老师的指点，我还有一个问题，怎么通过界面的的控件访问到的目录，然后自动获取到当前文件夹下的文件名，并加入到代码中，因为现在写死了只对当前目录下名字为10.txt的文件起作用，请问要怎么处理一下

suzhanpeng2018-01-20 11:12

Dir

ykk11062018-01-20 11:19

回复 6楼 suzhanpeng

具体怎么操作呢

wds12018-01-20 12:19

  读取path_name下所有文件
   Dim filename
  filename = Dir(path_name)
  Do Until filename = ""
    你的控件=filename   '当然你也可以控制类型’If LCase(Right(filename, 4)) = ".txt"
    filename = Dir()
  Loop

ykk11062018-01-20 14:07

回复 8楼 wds1

谢谢老师的指点

#10

ykk11062018-01-25 20:17

回复 8楼 wds1

谢谢老师的回复，我现在发现了一个问题还需请教一下老师当判断出当前文件夹下文件数量为1时移动这个文件，移动到其他目录后，这个文件夹下的文件数目实际为0了但是文件数那一栏显示的还是移动之前判断的数目1，（文件数那一栏的值是根据File1.ListCount 来取到的）现在想要让它在移动动作完成后自动更新为0，请问一下要怎么才能做到实时更新？

#11

suzhanpeng2018-01-26 08:23

用前面判断的代码，在执行移动后再执行一次

#12

wds12018-01-26 11:25

重新读取目录和刷新

File1.Path = "d:\1"
File1.Refresh