田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



绘制自定义多线 VB.NET中得到计算机硬件信息
未知 VB.Net遍历文件夹及文件操作   [ 日期:2010-11-25 ]   [ 来自:本站原创 ]  HTML
'遍历文件夹所有文件(不包含子文件夹)
    Function GetFLoderFilesList(ByVal FloderPath As String) As ArrayList
        Dim ArrList As New ArrayList
        FloderPath = IIf(Mid(FloderPath, FloderPath.Length, 1) <> "\", FloderPath + "\", FloderPath)
        Dim DirInfo As DirectoryInfo = New DirectoryInfo(FloderPath)
        Dim Files() As FileInfo = DirInfo.GetFiles
        Dim F(Files.Length) As String
        Dim File As FileInfo
        For Each File In Files
            ArrList.Add(File.Name)
        Next
        Return ArrList
    End Function
    '遍历文件夹所有文件(包含子文件夹)
    Public Shared Sub GetFloderAllFilesList(ByVal FloderPath As String, ByVal Root As Boolean, ByRef ArrList As ArrayList)
        If Root = True Then
            For Each SubFloder As String In Directory.GetDirectories(FloderPath)
                GetFloderAllFilesList(SubFloder, False, ArrList)
            Next
        End If
        For Each File As String In Directory.GetFiles(FloderPath)
            ArrList.Add(File)
        Next
End Sub

'复制文件,如果文件存在会覆盖文件
Function CopyFile(ByVal FileName As String, ByVal NewFileName As String) As Int16
        On Error Resume Next
        If System.IO.File.Exists(FileName) = True Then
            If System.IO.File.Exists(NewFileName) = True Then System.IO.File.Delete(NewFileName)
            System.IO.File.Copy(FileName, NewFileName)
            CopyFile = 1
        Else
            CopyFile = 0
        End If
End Function


    '判断目录是否存在的函数 传入String值 返回Boolean值
    Function DirExist(ByVal Str_Path As String) As Boolean
        DirExist = System.IO.Directory.Exists(Str_Path)
    End Function
    '判断文件是否存在的函数 传入String值 返回Boolean值
    Function FileExist(ByVal Str_File As String) As Boolean
        On Error Resume Next
        FileExist = System.IO.File.Exists(Str_File)
        If Err.Number > 0 Then '错误判断用于文件存在而不能访问
            FileExist = True
        End If
    End Function
    '保存顺序文件
    Function SaveTxtFile(ByVal FilePath As String, ByVal TxtList As ArrayList) As Int16
        Dim F As System.IO.StreamWriter
        F = FileIO.FileSystem.OpenTextFileWriter(FilePath, False)
        For i As Long = 0 To TxtList.Count - 1
            F.WriteLine(TxtList(i))
        Next
        F.Close()
    End Function
    '读取文本文件到ArrayList
    Function ReadTxtFile(ByVal FileName As String, ByRef TxtArray As ArrayList) As Int16
        Dim objReader As New StreamReader(FileName)
        Dim sLine As String = ""
        Dim arrText As New ArrayList()
        Do
            sLine = objReader.ReadLine()
            If Not sLine Is Nothing Then
                arrText.Add(sLine)
            End If
        Loop Until sLine Is Nothing
        objReader.Close()
        TxtArray = arrText
    End Function


[本日志由 tiancao1001 于 2010-11-25 04:35 PM 编辑]


暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:2*2=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©