欢迎来到站长教程网!
兔子CDN

ASP编程

当前位置:主页 > 网络编程 > ASP编程 >

自己写的文件操作的function和Sub vb.net dll

时间:2020-09-04|栏目:ASP编程|点击:

'原来用VB写的封装成dll供asp使用,后来升级到vb.net
'这个是我以前写的电影站影片处理的一部份,程序挺简单的,没怎么注释,大家对付看
'program by someeyes
'需要声明Imports System.IO命名空间

    Public Function myFileExists(ByVal pathName As String) As String '检查文件是否存在
        If File.Exists(pathName) = False Then
            myFileExists = "<font color=""Red"">文件丢失</font>"
        Else
            myFileExists = "<font color=""#0066ff"">文件存在</font>"
        End If
    End Function

    Private sub myCreatDirectory(ByVal pathName As String) '创建文件夹
        Try
            If Directory.Exists(pathName) = False Then
                Directory.CreateDirectory(pathName)
            End If
        Catch e As Exception
            myErrMsg = myErrMsg & "创建" & pathName & "文件夹的时候出现一个意外的错误."
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write("程序遇到一个意外的错误,详细情况请查看日志文件!<br>")
        End Try

    End Sub

    Private Sub myDelDirectory(ByVal pathName As String) '删除文件夹

        Try
            If Directory.Exists(pathName) = True Then
                Directory.Delete(pathName)
            End If
        Catch e As Exception
            myErrMsg = myErrMsg & "删除" & pathName & "文件夹的时候出现一个意外的错误."
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write("程序遇到一个意外的错误,详细情况请查看日志文件!<br>")
        End Try

    End Sub

    Private Sub myMoveFile(ByVal pathName As String, ByVal target As String)  '移动文件夹
        Try
            File.Move(pathName, target)
        Catch e As Exception
            myErrMsg = myErrMsg & "从" & pathName & "移动文件到" & target & "的时候出现一个意外的错误."
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write("程序遇到一个意外的错误,详细情况请查看日志文件!<br>")
        End Try
    End Sub

    Private Sub myCopyFile(ByVal fsource As String, ByVal fdestination As String)
        Try
            File.Copy(fsource, fdestination, False)
        Catch e As Exception
            myErrMsg = myErrMsg & "从" & fsource & "复制文件到" & fdestination & "的时候出现一个意外的错误."
            myErrMsg = myErrMsg & e.ToString
            HttpContext.Current.Response.Write("程序遇到一个意外的错误,详细情况请查看日志文件!<br>")
        End Try
    End Sub

上一篇:asp实现批量插入表单中的数据到数据库的方法

栏    目:ASP编程

下一篇:CheckFile函数之asp实现检查某一文件是否存在的代码

本文标题:自己写的文件操作的function和Sub vb.net dll

本文地址:www.dtcnnet.com/asp/24506.html

您可能感兴趣的文章

广告投放 | 联系我们 | 版权申明

重要申明:本站所有的文章、图片、评论等,均由网友发表或上传并维护或收集自网络,属个人行为,与本站立场无关。

如果侵犯了您的权利,请与我们联系,我们将在24小时内进行处理、任何非本站因素导致的法律后果,本站均不负任何责任。

联系QQ:584415406 | 邮箱:584415406#qq.com(#换成@)

Copyright © 2015-2020 小白站长网 版权所有 苏ICP备20040415号