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

'原来用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

赞 (0)

相关推荐

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

    '原来用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         

  • python写日志文件操作类与应用示例

    本文实例讲述了python写日志文件操作类与应用.分享给大家供大家参考,具体如下: 项目的开发过程中,日志文件是少不了的,通过写日志文件,可以知道程序运行的情况.特别当部署在生产环境中的时候,这个时候一般不能debug , 当然在有些情况时可以 remote debug (远程debug).那种情况另当别论.还是用通常的写日志的方法,比如在 java 中,经常可以看到 log4j,sf4j,logback等三方组件来写日志. 在python中如何实现呢,其实python 本身也带了日志操作的库.

  • python写xml文件的操作实例

    本文实例讲述了python写xml文件的操作的方法,分享给大家供大家参考.具体方法如下: 要生成的xml文件格式如下: <?xml version="1.0" ?> <!--Simple xml document__chapter 8--> <book> <title> sample xml thing </title> <author> <name> <first> ma </fir

  • lua文件操作详解

    I/O库提供两种不同的方式进行文件处理: io表调用方式 使用io表,io.open将返回指定文件的描述,并且所有的操作将围绕这个文件描述.io表同样提供三种预定义的文件描述io.stdin,io.stdout,io.stderr 文件句柄直接调用方式 即使用file:XXX()函数方式进行操作,其中file为io.open()返回的文件句柄.多数I/O函数调用失败时返回nil加错误信息,有些函数成功时返回nil IO io.close ([file]) io.flush () 相当于file:

  • Node.js文件操作详解

    Node有一组数据流API,可以像处理网络流那样处理文件,用起来很方便,但是它只允许顺序处理文件,不能随机读写文件.因此,需要使用一些更底层的文件系统操作. 本章覆盖了文件处理的基础知识,包括如何打开文件,读取文件某一部分,写数据,以及关闭文件. Node的很多文件API几乎是UNIX(POSIX)中对应文件API 的翻版,比如使用文件描述符的方式,就像UNIX里一样,文件描述符在Node里也是一个整型数字,代表一个实体在进程文件描述符表里的索引. 有3个特殊的文件描述符--1,2和3.他们分别

  • javascript 系统文件夹文件操作及参数介绍

    前期在.net 下进行系统操作,同样的功能实现起来非常复杂,没想到用javascript竟然如此简单,所以在网上搜索了代码并加以改进. 复制代码 代码如下: function PathList(path) { var fso = new ActiveXObject("Scripting.FileSystemObject"); var fldr = fso.GetFolder(path); var fd = new Enumerator(fldr.SubFolders); for (;

  • PHP文件操作实现代码分享

    PHP文件操作实现代码分享

    将数据写或读入文件,基本上分为三个步骤: 1. 打开一个文件(如果存在) 2. 写/读文件 3. 关闭这个文件 l打开文件 在打开文件文件之前,我们需要知道这个文件的路径,以及此文件是否存在. 用$_SERVER["DOCUMENT_ROOT"]内置全局变量,来获得站点的相对路径.如下: $root = $_SERVER["DOCUMENT_ROOT"]; 在用函数file_exists()来检测文件是否存在.如下: If(!file_exists("$r

  • php文件操作实例代码

    先送上一段简单的实例 复制代码 代码如下: <?php if(!is_dir('txt'))//判断txt是否为文件夹目录 { mkdir('txt');//创建名为txt的文件夹目录 $open=fopen('txt/in.txt',"w+");//以读写的方式打开文件 if(is_writable('txt/in.txt'))//如果此文件为可写模式 { if(fwrite($open,"今天是美好的一天,一定要开心哦!<- ->")>0

  • 目录,文件操作详谈—PHP

    转自 blueidea.com 一.引论 在任何计算机设备中,文件是都是必须的对象,而在web编程中,文件的操作一直是web程序员的头疼的地方,而,文件的操作在cms系统中这是必须的,非常有用的,我们经常遇到生成文件目录,文件(夹)编辑等操作,现在我把php中的这些函数做一详细总结并实例示范如何使用.,关于对应的函数详细介绍,请查阅php手册.此处只总结重点.和需要注意的地方.(这在php手册是没有的.) 二.目录操作 首先介绍的是一个从目录读取的函数,opendir(),readdir(),c

  • PHP常用的文件操作函数经典收藏

    以下是个人总结的PHP文件操作函数.当然,这只是部分,还有很多,我没有列出来. 一 .解析路径: 1 获得文件名: basename(); 给出一个包含有指向一个文件的全路径的字符串,本函数返回基本的文件名.如果文件名是以 suffix 结束的,那这一部分也会被去掉. eg: 复制代码 代码如下: $path = "/home/httpd/html/index.php"; $file = basename($path,".php"); // $file is set

随机推荐