<address id="xpjh9"><listing id="xpjh9"><meter id="xpjh9"></meter></listing></address>

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
<noframes id="xpjh9">
<noframes id="xpjh9">

<address id="xpjh9"><address id="xpjh9"><listing id="xpjh9"></listing></address></address>
    <form id="xpjh9"></form><address id="xpjh9"><listing id="xpjh9"><menuitem id="xpjh9"></menuitem></listing></address>

      <noframes id="xpjh9">
      VB.net 2010 視頻教程 VB.net 2010 視頻教程 VB.net 2010 視頻教程
      SQL Server 2008 視頻教程 c#入門經典教程 Visual Basic從門到精通視頻教程
      當前位置:
      首頁 > 網站開發 > ASPnet >
      • asp.net教程之Asp中一些FSO方面的函數

      • 2017-06-11 20:13 來源:未知
      ''//==================================文件操作================================== 

      ''取文件大小
      Function GetFileSize(FileName)
      ''//功能:取文件大小
      ''//形參:文件名
      ''//返回值:成功為文件大小,失敗為-1
      ''//
      Dim f
      If ReportFileStatus(FileName) = 1 Then
      Set f = fso.Getfile(FileName)
      GetFileSize = f.Size
      Else
      GetFileSize = -1
      End if
      End Function 

      ''文件刪除
      Function deleteAFile(filespec)
      ''//功能:文件刪除
      ''//形參:文件名
      ''//返回值:成功為1,失敗為-1
      ''//
      If ReportFileStatus(filespec) = 1 Then
      fso.deleteFile(filespec)
      deleteAFile = 1
      Else
      deleteAFile = -1
      End if
      End Function

      ''顯示文件列表
      Function ShowFileList(folderspec)
      ''//功能:目錄存在時顯示此目錄下的所有文件
      ''//形參:目錄名
      ''//返回值:成功為文件列表,失敗為-1
      ''//
      Dim f, f1, fc, s
      If ReportFolderStatus(folderspec) = 1 Then
      Set f = fso.GetFolder(folderspec)
      Set fc = f.Files
      For Each f1 in fc
      s = s & f1.name 
      s = s & "|"
      Next
      ShowFileList = s
      Else
      ShowFileList = -1
      End if
      End Function

      ''!!!
      ''文件復制
      Function CopyAFile(SourceFile,DestinationFile)
      ''//功能:源文件存在時,才能對文件進行復制,目的文件無影響
      ''//形參:源文件,目的文件
      ''//返回值:成功為1,失敗為-1
      ''//
      Dim MyFile
      If ReportFileStatus(SourceFile) = 1 Then
      Set MyFile = fso.GetFile(SourceFile)
      MyFile.Copy (DestinationFile)
      CopyAFile = 1
      Else
      CopyAFile = -1
      End if
      End Function

      ''文件移動
      ''Response.Write MoveAFile("f:\123\4561.exe","f:\123\4562.txt")
      Function MoveAFile(SourceFile,DestinationFile)
      ''//功能:源文件存在時目的文件不存在時才能對文件進行移動
      ''//形參:源文件,目的文件
      ''//返回值:成功為1,失敗為-1
      ''//
      If ReportFileStatus(SourceFile)=1 And ReportFileStatus(DestinationFileORPath) = 

      -1 Then
      fso.MoveFile SourceFile,DestinationFileORPath
      MoveAFile = 1
      Else
      MoveAFile = -1
      End if
      End Function

      ''文件是否存在?
      ''Response.Write ReportFileStatus("G:\soft\delphi\my_pro\代碼庫.exe")
      Function ReportFileStatus(FileName) 
      ''//功能:判斷文件是否存在
      ''//形參:文件名
      ''//返回值:成功為1,失敗為-1
      ''//
      Dim msg
      msg = -1
      If (fso.FileExists(FileName)) Then
      msg = 1
      Else
      msg = -1
      End If
      ReportFileStatus = msg
      End Function


      ''文件創建日期
      ''Response.Write ShowDatecreated("G:\soft\delphi\my_pro\代碼庫.exe")
      ''Response.Write ShowDatecreated("G:\soft\delphi\my_pro\復件 代碼庫.exe")
      Function ShowDatecreated(filespec)
      ''//功能:文件創建日期
      ''//形參:文件名
      ''//返回值:成功:文件創建日期,失敗:-1
      ''//
      Dim f
      If ReportFileStatus(filespec) = 1 Then
      Set f = fso.GetFile(filespec)
      ShowDatecreated = f.Datecreated
      Else
      ShowDatecreated = -1
      End if
      End Function

      ''文件屬性
      ''Response.Write GetAttributes("G:\soft\delphi\my_pro\復件 代碼庫.exe")
      Function GetAttributes(FileName)
      ''//功能:顯示文件屬性
      ''//形參:文件名
      ''//返回值:成功:文件屬性,失敗:-1
      ''//
      Dim f,Str
      If ReportFileStatus(FileName) = 1 Then
      Set f = fso.GetFile(FileName)
      select Case f.attributes 
      Case 0 Str="普通文件。沒有設置任何屬性。 "
      Case 1 Str="只讀文件。可讀寫。 "
      Case 2 Str="隱藏文件。可讀寫。 "
      Case 4 Str="系統文件。可讀寫。 "
      Case 16 Str="文件夾或目錄。只讀。 "
      Case 32 Str="上次備份后已更改的文件。可讀寫。 " 
      Case 1024 Str="鏈接或快捷方式。只讀。 "
      Case 2048 Str=" 壓縮文件。只讀。"
      End select
      GetAttributes = Str
      Else
      GetAttributes = -1
      End if
      End Function

      ''最后一次訪問/最后一次修改時間
      ''Response.Write ShowFileAccessInfo("G:\soft\delphi\my_pro\復件 代碼庫.exe")
      Function ShowFileAccessInfo(FileName,InfoType)
      ''//功能:顯示文件創建時信息
      ''//形參:文件名,信息類別
      ''// 1 -----創建時間
      ''// 2 -----上次訪問時間
      ''// 3 -----上次修改時間
      ''// 4 -----文件路徑
      ''// 5 -----文件名稱
      ''// 6 -----文件類型
      ''// 7 -----文件大小
      ''// 8 -----父目錄
      ''// 9 -----根目錄
      ''//返回值:成功為文件創建時信息,失敗:-1
      ''//
      Dim f, s
      If ReportFileStatus(FileName) = 1 then
      Set f = fso.GetFile(FileName)
      select Case InfoType
      Case 1 s = f.Datecreated ''// 1 -----

      創建時間
      Case 2 s = f.DateLastAccessed ''// 2 -----上次訪問

      時間
      Case 3 s = f.DateLastModified ''// 3 -----上次修改

      時間
      Case 4 s = f.Path ''// 4 

      -----文件路徑
      Case 5 s = f.Name ''// 5 

      -----文件名稱
      Case 6 s = f.Type ''// 6 

      -----文件類型
      Case 7 s = f.Size ''// 7 

      -----文件大小
      Case 8 s = f.ParentFolder ''// 8 -----

      父目錄
      Case 9 s = f.RootFolder ''// 8 -----

      根目錄
      End select
      ShowFileAccessInfo = s 
      ELse
      ShowFileAccessInfo = -1 
      End if
      End Function

      ''寫文本文件
      Function WriteTxtFile(FileName,TextStr,WriteORAppendType)
      Const ForReading = 1, ForWriting = 2 , ForAppending = 8
      Dim f, m
      select Case WriteORAppendType
      Case 1: ''文件進行寫操作
      Set f = fso.OpenTextFile(FileName, ForWriting, True)
      f.Write TextStr
      f.Close
      If ReportFileStatus(FileName) = 1 then
      WriteTxtFile = 1
      Else
      WriteTxtFile = -1
      End if
      Case 2: ''文件末尾進行寫操作
      If ReportFileStatus(FileName) = 1 then
      Set f = fso.OpenTextFile(FileName, ForAppending)
      f.Write TextStr
      f.Close
      WriteTxtFile = 1
      Else
      WriteTxtFile = -1
      End if
      End select
      End Function

      ''讀文本文件
      Function ReadTxtFile(FileName)
      Const ForReading = 1, ForWriting = 2
      Dim f, m
      If ReportFileStatus(FileName) = 1 then
      Set f = fso.OpenTextFile(FileName, ForReading)
      m = f.ReadLine
      ''m = f.ReadAll
      ''f.SkipLine
      ReadTxtFile = m
      f.Close
      Else
      ReadTxtFile = -1
      End if
      End Function

      ''建立文本文件



      ''//==================================目錄操作==================================

      ''取目錄大小
      Function GetFolderSize(FolderName)
      ''//功能:取目錄大小
      ''//形參:目錄名
      ''//返回值:成功為目錄大小,失敗為-1
      ''//
      Dim f
      If ReportFolderStatus(FolderName) = 1 Then
      Set f = fso.GetFolder(FolderName)
      GetFolderSize = f.Size
      Else
      GetFolderSize = -1
      End if
      End Function 

      ''創建的文件夾
      Function createFolderDemo(FolderName)
      ''//功能:創建的文件夾
      ''//形參:目錄名
      ''//返回值:成功為1,失敗為-1
      ''//
      Dim f
      If ReportFolderStatus(Folderspec) = 1 Then
      createFolderDemo = -1
      Else
      Set f = fso.createFolder(FolderName)
      createFolderDemo = 1
      End if
      End Function


      ''!!!
      ''目錄刪除
      Function deleteAFolder(Folderspec)
      ''//功能:目錄刪除
      ''//形參:目錄名
      ''//返回值:成功為1,失敗為-1
      ''//
      Response.write Folderspec
      If ReportFolderStatus(Folderspec) = 1 Then
      fso.deleteFolder (Folderspec)
      deleteAFolder = 1
      Else
      deleteAFolder = -1
      End if
      End Function

      ''顯示目錄列表
      Function ShowFolderList(folderspec) 
      ''//功能:目錄存在時顯示此目錄下的所有子目錄
      ''//形參:目錄名
      ''//返回值:成功為子目錄列表,失敗為-1
      ''//
      Dim f, f1, fc, s
      If ReportFolderStatus(folderspec) = 1 Then
      Set f = fso.GetFolder(folderspec)
      Set fc = f.SubFolders
      For Each f1 in fc
      s = s & f1.name 
      s = s & "|"
      Next
      ShowFolderList = s
      Else
      ShowFolderList = -1
      End if
      End Function

      ''!!!!
      ''目錄復制
      Function CopyAFolder(SourceFolder,DestinationFolder)
      ''//功能:源目錄存在時,才能對目錄進行復制,目的目錄無影響
      ''//形參:源目錄,目的目錄
      ''//返回值:成功為1,失敗為-1
      ''//
      ''Dim MyFolder
      ''If ReportFolderStatus(SourceFolder) = 1 and ReportFolderStatus

      (DestinationFolder) = -1 Then
      ''Set MyFolder = fso.GetFolder(SourceFolder)
      fso.CopyFolder SourceFolder,DestinationFolder
      CopyAFolder = 1
      ''Else
      CopyAFolder = -1
      ''End if
      End Function


      ''目錄進行移動
      Function MoveAFolder(SourcePath,DestinationPath)
      ''//功能:源目錄存在時目的目錄不存在時才能對目錄進行移動
      ''//形參:源目錄,目的目錄
      ''//返回值:成功為1,失敗為-1
      ''//
      If ReportFolderStatus(SourcePath)=1 And ReportFolderStatus(DestinationPath)=0 

      Then
      fso.MoveFolder SourcePath, DestinationPath
      MoveAFolder = 1
      Else
      MoveAFolder = -1
      End if
      End Function

      ''判斷目錄是否存在
      ''Response.Write ReportFolderStatus("G:\soft\delphi\my_pro\")
      Function ReportFolderStatus(fldr) 
      ''//功能:判斷目錄是否存在
      ''//形參:目錄
      ''//返回值:成功為1,失敗為-1
      ''//
      Dim msg
      msg = -1
      If (fso.FolderExists(fldr)) Then
      msg = 1
      Else
      msg = -1
      End If
      ReportFolderStatus = msg
      End Function

      ''目錄創建時信息
      Function ShowFolderAccessInfo(FolderName,InfoType)
      ''//功能:顯示目錄創建時信息
      ''//形參:目錄名,信息類別
      ''// 1 -----創建時間
      ''// 2 -----上次訪問時間
      ''// 3 -----上次修改時間
      ''// 4 -----目錄路徑
      ''// 5 -----目錄名稱
      ''// 6 -----目錄類型
      ''// 7 -----目錄大小
      ''// 8 -----父目錄
      ''// 9 -----根目錄
      ''//返回值:成功為目錄創建時信息,失敗:-1
      ''//
      Dim f, s
      If ReportFolderStatus(FolderName) = 1 then
      Set f = fso.GetFolder(FolderName)
      select Case InfoType
      Case 1 s = f.Datecreated ''// 1 -----

      創建時間
      Case 2 s = f.DateLastAccessed ''// 2 -----上次訪問

      時間
      Case 3 s = f.DateLastModified ''// 3 -----上次修改

      時間
      Case 4 s = f.Path ''// 4 

      -----文件路徑
      Case 5 s = f.Name ''// 5 

      -----文件名稱
      Case 6 s = f.Type ''// 6 

      -----文件類型
      Case 7 s = f.Size ''// 7 

      -----文件大小
      Case 8 s = f.ParentFolder ''// 8 -----

      父目錄
      Case 9 s = f.RootFolder ''// 9 -----

      根目錄
      End select
      ShowFolderAccessInfo = s 
      ELse
      ShowFolderAccessInfo = -1 
      End if
      End Function

      Function DisplayLevelDepth(pathspec)
      Dim f, n ,Path
      Set f = fso.GetFolder(pathspec)
      If f.IsRootFolder Then
      DisplayLevelDepth ="指定的文件夾是根文件夾。"&RootFolder
      Else
      Do Until f.IsRootFolder
      Path = Path & f.Name &"<br>"
      Set f = f.ParentFolder
      n = n + 1
      Loop
      DisplayLevelDepth ="指定的文件夾是嵌套級為 " & n & " 的文件夾。<br>"& 

      Path
      End If
      End Function

      ''//==================================磁盤操作==================================
      ''驅動器是否存在?
      ''Response.Write ReportDriveStatus("C:\")
      Function ReportDriveStatus(drv) 
      ''//功能:判斷磁盤是否存在
      ''//形參:磁盤
      ''//返回值:成功為1,失敗為-1
      ''//
      Dim msg
      msg = -1
      If fso.DriveExists(drv) Then
      msg = 1
      Else
      msg = -1
      End If
      ReportDriveStatus = msg
      End Function

      ''--------可用的返回類型包括 FAT、NTFS 和 CDFS。
      ''Response.Write ShowFileSystemType("C:\")
      Function ShowFileSystemType(drvspec)
      ''//功能:磁盤類型
      ''//形參:磁盤名
      ''//返回值:成功為類型:FAT、NTFS 和 CDFS,失敗:-1
      ''//
      Dim d
      If ReportDriveStatus(drvspec) = 1 Then
      Set d = fso. GetDrive(drvspec)
      ShowFileSystemType = d.FileSystem
      ELse
      ShowFileSystemType = -1
      End if
      End Function
      End Class


      %>
      相關教程
      江苏快3 那曲 | 博尔塔拉 | 垦利 | 黔西南 | 伊犁 | 博罗 | 鄂州 | 桐乡 | 漳州 | 泗阳 | 任丘 | 临猗 | 三沙 | 枣庄 | 南平 | 雄安新区 | 济源 | 喀什 | 顺德 | 孝感 | 汝州 | 黄山 | 库尔勒 | 通化 | 甘南 | 海南 | 赵县 | 海宁 | 河池 | 安岳 | 安岳 | 金昌 | 湛江 | 普洱 | 许昌 | 临沧 | 周口 | 淮南 | 苍南 | 本溪 | 洛阳 | 瓦房店 | 顺德 | 九江 | 六安 | 香港香港 | 桐乡 | 武夷山 | 宝鸡 | 赵县 | 九江 | 毕节 | 宁国 | 葫芦岛 | 吉林 | 吉林长春 | 东营 | 长治 | 邹平 | 荆门 | 荣成 | 许昌 | 宣城 | 和田 | 章丘 | 池州 | 通辽 | 朝阳 | 信阳 | 宣城 | 海西 | 项城 | 萍乡 | 阳春 | 青州 | 诸暨 | 来宾 | 仁寿 | 枣阳 | 绍兴 | 和县 | 咸宁 | 邯郸 | 郴州 | 兴安盟 | 湖州 | 乐平 | 昌吉 | 滁州 | 基隆 | 安徽合肥 | 简阳 | 辽宁沈阳 | 黑河 | 吐鲁番 | 十堰 | 荣成 | 宿州 | 泗洪 | 武夷山 | 鄂州 | 四川成都 | 赣州 | 霍邱 | 莱芜 | 张北 | 嘉峪关 | 临夏 | 临夏 | 黄冈 | 秦皇岛 | 济宁 | 高密 |