Asp中一些FSO方面的函數

來源:互聯網
上載者:User
fso|函數 Asp中一些FSO方面的函數 
 
'//==================================檔案操作==================================

'取檔案大小
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



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。