[笔记文]My.Computer.FileSystem 数据夹操作 简介

摘要:[笔记文]My.Computer.FileSystem 数据夹操作 简介

需求
命名空间：Microsoft.VisualBasic.MyServices
类：FileSystemProxy (提供对 FileSystem 的存取)
组件：Visual Basic 执行阶段程序库 (在 Microsoft.VisualBasic.dll 中)

1.检查目录是否存在
My.Computer.FileSystem.DirectoryExists("目录完整路径")

2.       If My.Computer.FileSystem.DirectoryExists("c:test") Then
3.           MsgBox("目录 c:test 存在")
4.       Else
5.           MsgBox("目录 c:test 不存在")
6.       End If

复制代码

2.建立目录
My.Computer.FileSystem.CreateDirectory("目录完整路径")

2.       '先检查目录是否存在
3.       If My.Computer.FileSystem.DirectoryExists("c:test") Then
4.           MsgBox("目录 c:test 存在")
5.       Else
6.       '不存在就建立
7.          My.Computer.FileSystem.CreateDirectory("c:test")
8.          MsgBox("目录 c:test 以建立") 
9.      End If

复制代码

3.删除目录
My.Computer.FileSystem.DeleteDirectory("目录完整路径",删除选项参数)
删除选项参数，参考连结
DeleteDirectoryOption 枚举类型：指定如果要删除的目录包含文件或目录时，应该要如何处理。默认值为 DeleteDirectoryOption.DeleteAllContents。
UIOption 枚举类型：指定是否视觉化追踪作业的进度。默认值为UIOption.OnlyErrorDialogs。必要项。 
RecycleOption 枚举类型：指定已删除的文件是否应该传送至 [资源回收筒]。默认值为RecycleOption.DeletePermanently。 
UICancelOption 枚举类型：指定如果使用者按一下 [取消]，是否会掷回例外状况。必要项。

2.       '先检查目录是否存在
3.       If My.Computer.FileSystem.DirectoryExists("c:test") Then
4.           '存在就删除
5.           '设定删除目录和其下文件和子目录
6.           My.Computer.FileSystem.DeleteDirectory("c:test", FileIO.DeleteDirectoryOption.DeleteAllContents)
7.           MsgBox("目录 c:test 以删除")
8.       Else
9.           MsgBox("目录 c:test 存在") 
10.      End If

复制代码

4.复制目录
My.Computer.FileSystem.CopyDirectory("要复制的目录", "要复制的位置", 是否覆写现有文件, 当按下取消时是否扔回例外)

2.       '先检查目录是否存在
3.       If My.Computer.FileSystem.DirectoryExists("c:test") Then
4.           '存在就复制
5.           '设定复制时覆盖所有的文件，按下取消时不回传例外
6.           My.Computer.FileSystem.CopyDirectory("c:test","c:复制test",True,FileIO.UICancelOption.DoNothing)
7.           MsgBox("目录 c:test 以复制")
8.       Else
9.           MsgBox("目录 c:test 存在") 
10.      End If

复制代码

5.移动目录
My.Computer.FileSystem.MoveDirectory("要移动的来源路径", "要移动的目标路径",是否覆写现有文件, 当按下取消时是否扔回例外)

2.       '先检查目录是否存在
3.       If My.Computer.FileSystem.DirectoryExists("c:test") Then
4.           '存在就移动
5.           '设定移动时覆盖所有的文件，按下取消时不回传例外
6.           My.Computer.FileSystem.CopyDirectory("c:test","c:移动test",True,FileIO.UICancelOption.DoNothing)
7.           MsgBox("目录 c:test 以移动")
8.       Else
9.           MsgBox("目录 c:test 存在") 
10.      End If

复制代码

简单介绍以上

已上是本人于2009 整理于 VB研究小站 之 NCIS资讯中心讨论区

转贴过来。

==================================================== 
有些事就该把它当作一种回忆...
一种放在记忆中任随时间慢慢的侵蚀慢慢的随风漂泊........
 ===================================================
~~~请支持 点部落 格，点点下方的广告吧~~~

原文:大专栏  [笔记文]My.Computer.FileSystem 数据夹操作 简介