FSO は FileSystemObject を意味し、ファイル システム オブジェクトです。 FSO オブジェクト モデルは、スクリプト タイプ ライブラリ (Scrrun.Dll) に含まれており、ファイルやフォルダーの操作に非常に便利な、Drive、Folder、File、FileSystemObject、TextStream の 5 つのオブジェクトも含まれています。
FSO ファイル (ファイル) オブジェクトのプロパティ
DateCreated はフォルダーの作成日時を返します。
DateLastAccessed は、ファイルが最後にアクセスされた日付と時刻を返します。
DateLastModified は、ファイルが最後に変更された日付と時刻を返します。
Drive は、ファイルが存在するドライブの Drive オブジェクトを返します。
Name ファイルの名前を設定または返します
ParentFolder は、ファイルの親フォルダーの Folder オブジェクトを返します。
Path はファイルの絶対パスを返します。長いファイル名も使用できます。
ShortName は、DOS スタイル 8.3 形式のファイル名を返します。
ShortPath は、DOS スタイル 8.3 スタイルのファイルへの絶対パスを返します。
Size はファイルのサイズ (バイト) を返します。
Type 可能な場合は、ファイルの種類を説明する文字列を返します。
FSO ファイル (ファイル) オブジェクトのメソッド
FSO ファイル オブジェクト メソッドの使用法
CopyFile は 1 つ以上のファイルを新しいパスにコピーします
CreateTextFile はファイルを作成し、TextStream オブジェクトを返します。
DeleteFile ファイルを削除します
OpenTextFile はファイルを開き、読み取りまたは追加用の TextStream オブジェクトを返します。
ファイルの名前を変更します。
次のようにコードをコピーします。
関数 reName(sourceName,destName)
dim oFso,oFile
set oFso=server.createobject("Scripting.FileSystemObject")
set oFile=oFso.getFile(Server.mappath(sourceName))
oFile.Name=宛先名
oFso=Nothing を設定します
oFile=Nothing を設定します
終了機能
ファイルを削除します:
次のようにコードをコピーします。
関数 FSOdel(ファイル名)
薄暗い fso,f
set fso = server.CreateObject("scripting.filesystemobject")
f=サーバー.マップパス(ファイル名)
fso.FileExists(f) の場合
fso.DeleteFile f,true
終了する場合
f = 何も設定しない
fso = 何も設定しない
終了機能
ファイル内の文字列を置換します。
次のようにコードをコピーします。
関数 FSOreplace(ファイル名,ターゲット,repString)
Dim objFSO、objCountFile、FiletempData
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objCountFile = objFSO.OpenTextFile(Server.MapPath(fileName),1,True)
FiletempData = objCountFile.ReadAll
objCountFile.Close
FiletempData=Replace(FiletempData,Target,repString)
Set objCountFile=objFSO.CreateTextFile(Server.MapPath(fileName),True)
objCountFile.Write FiletempData
objCountFile.Close
objCountFile=Nothing を設定します
objFSO = なしを設定します
終了機能
<%
'************************************************ * *****
'関数名: CreateFolder(sPath)
'機能: ディレクトリの作成
'パラメータ: sPath: 作成された相対ディレクトリ パス
'戻り値: 成功した場合は true、失敗した場合は false
'************************************************ * *****
'response.Write createfolder("/dgsunshine/UploadFile/demo1/")
関数 CreateFolder(sPath)
エラー時は次へ再開
Dim Fso、Arrfolder、Folder、i、j
sPath="" の場合
CreateFolder = False
終了関数
終了の場合
Left(sPath,1) = "/" の場合
フォルダー = "/"
sPath = Mid(sPath,2,Len(sPath))
それ以外
フォルダー = "./"
終了の場合
if Right(sPath,1) = "/" then sPath = Left(sPath,Len(sPath)-1)
ArrFolder = Split(sPath,"/")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
For i = 0 To Ubound(ArrFolder)
i = 0 の場合
フォルダー = フォルダー & ArrFolder(i) & "/"
それ以外
フォルダー = フォルダー & ArrFolder(i) & "/"
終了の場合
Fso.folderExists(Server.MapPath(Folder)) = False の場合
応答.書き込みサーバー.MapPath(フォルダー)
Fso.createFolder(Server.MapPath(フォルダー))
終了の場合
次
Fso = 何も設定しない
Err.Number <> 0 の場合、
エラークリア()
CreateFolder = False
それ以外
CreateFolder = True
終了の場合
終了機能
関数 getFile(paramFilePath)
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set Fso_Read = fso.OpenTextFile(Server.MapPath(paramFilePath),1,false,-2)
getFile = Fso_Read.readall
Fso_Read = なしを設定します
Fso = なしを設定します
終了機能
'************************************************ * *****
'関数名: CreateFile(paramFileContent,paramFilePath)
'機能: ファイルの作成
'パラメータ: paramFileContent 'ファイルの内容
' paramFilePath 'ファイル名(パスを除く)
'戻り値: 成功した場合は true、失敗した場合は false
'************************************************ * *****
関数 CreateFile(paramFileContent,paramFilePath)
エラー時は次へ再開
ディム Fso,fWrite
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Set fWrite = Fso.CreateTextFile(Server.Mappath(paramFilePath),true)
fWrite.write paramFileContent
fWrite.close()
fWrite = 何も設定しない
Fso = 何も設定しない
エラー番号 <> 0 の場合
エラークリア()
ファイルの作成 = False
それ以外
ファイルの作成 = True
終了の場合
終了機能
'************************************************ * *****
'関数名: DelFile(ファイルパス)
'機能: ファイルを削除します
'パラメータ: FilePath 'ファイルパス 複数のファイルを「|」で区切って指定します
'戻り値: 成功した場合は true、失敗した場合は false
'************************************************ * *****
関数 DelFile(ファイルパス)
エラー時は次へ再開
Dim fso,arrFile,i
GetSafeStr(FilePath,"")="" の場合、
CreateFolder = false
終了関数
終了の場合
arrFile = Split(ファイルパス,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
i=0 から UBound(arrFile) まで
ファイルパス = arrFile(i)
Fso.FileExists(Server.MapPath(FilePath)) の場合
Fso.DeleteFile Server.MapPath(FilePath)
終了の場合
次
fso = 何も設定しない
エラーの場合は、
エラークリア()
DelFile = false
それ以外
DelFile = true
終了の場合
終了機能
'************************************************ * *****
'関数名：DelFolder(FolderPath)
'機能: ディレクトリの削除
'パラメータ: FolderPath 'ディレクトリパス' 複数のディレクトリは「|」で区切ります。
'戻り値: 成功した場合は true、失敗した場合は false
'************************************************ * *****
関数 DelFolder(フォルダーパス)
エラー時は次へ再開
Dim Fso、arrFolder、i
GetSafeStr(FolderPath,"")="" の場合、
DelFolder = false
終了関数
終了の場合
arrFolder = Split(フォルダーパス,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
i=0 の場合は UBound(arrFolder) まで
フォルダーパス = arrFolder(i)
Fso.folderexists(Server.MapPath(FolderPath)) の場合
Fso.deleteFolder Server.MapPath(FolderPath)
終了の場合
次
エラーの場合は、
エラークリア()
DelFolder = false
'ShowError "ディレクトリの削除に失敗しました",""
それ以外
DelFolder = true
終了の場合
終了機能
'************************************************ * *****
'関数名: IsExistFile(FilePath)
'機能: ファイルまたはディレクトリが存在するかどうかを確認します
'パラメータ: FilePath 'ファイルパス 複数のファイルを「|」で区切って指定します
'戻り値: 成功した場合は true、失敗した場合は false
'************************************************ * *****
関数 IsExistFile(ファイルパス)
エラー時は次へ再開
Dim fso,arrFile,i
GetSafeStr(FilePath,"")="" の場合、
IsExistFile = false
終了の場合
arrFile = Split(ファイルパス,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
i=0 から UBound(arrFile) まで
ファイルパス = arrFile(i)
Fso.FileExists(Server.MapPath(FilePath)) の場合
IsExistFile = True
終了の場合
Fso.folderexists(Server.MapPath(FilePath)) の場合
IsExistFile = True
終了の場合
次
fso = 何も設定しない
エラーの場合は、
エラークリア()
IsExistFile = false
'ShowError "ファイルまたはディレクトリが存在するかどうかを判断できませんでした",""
それ以外
IsExistFile = true
終了の場合
終了機能
'************************************************ * *****
'関数名: DelFile(ファイルパス)
'機能: ファイルまたはディレクトリを削除します
'パラメータ: FilePath 'ファイルパス 複数のファイルを「|」で区切って指定します
'戻り値: 成功した場合は true、失敗した場合は false
'************************************************ * *****
関数 DelFile(ファイルパス)
エラー時は次へ再開
Dim fso,arrFile,i
GetSafeStr(FilePath,"")="" の場合、
CreateFolder = false
終了の場合
arrFile = Split(ファイルパス,"|")
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
i=0 から UBound(arrFile) まで
ファイルパス = arrFile(i)
Fso.FileExists(Server.MapPath(FilePath)) の場合
Fso.DeleteFile Server.MapPath(FilePath)
終了の場合
Fso.folderexists(Server.MapPath(FilePath)) の場合
Fso.deleteFolder Server.MapPath(ファイルパス)
終了の場合
次
fso = 何も設定しない
エラーの場合は、
エラークリア()
DelFile = false
'ShowError "ファイルまたはディレクトリの削除に失敗しました",""
それ以外
DelFile = true
終了の場合
終了機能
'************************************************ * *****
'関数名: ReNameFile((oldName,newName)
'機能: ファイルまたはディレクトリの名前を変更します
'パラメータ: strOldName '元のファイル名が複数ある場合は「|」で区切ります。
' strNewName ' 複数の新しいファイル名は「|」で区切られます。
' 上記の 2 つのパラメータの一貫性を保ってください
'戻り値: 成功した場合は true、失敗した場合は false
'************************************************ * *****
関数 ReNameFile(strOldName,strNewName)
エラー時は次へ再開
Dim fso、arrOld、arrNew、i、oldName、newName
old = GetSafeStr(strOldName,"")
Newfile = GetSafeStr(strNewName,"")
old = "" または Newfile = "" の場合
ReNameFile = false
終了関数
終了の場合
arrOld = Split(strOldName,"|")
arrNew = Split(strNewName,"|")
UBound(arrOld)<> UBound(arrNew) の場合
ReNameFile = false
終了関数
終了の場合
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
for i=0 から UBound(arrOld)
oldName = Server.MapPath(arrOld(i))
newName = Server.MapPath(arrNew(i))
Fso.FileExists(oldName) ではなく Fso.FileExists(newName) の場合
fso.MoveFile oldName,newName
'ReNameFile = True
終了の場合
次
fso = 何も設定しない
Err.Number <> 0 の場合、次に
エラークリア()
ReNameFile = false
それ以外
ReNameFile = True
終了の場合
終了機能
'************************************************ * *****
'関数名: CopyFiles((TempSource,TempEnd)
'機能: ファイルまたはディレクトリをコピーします
'パラメータ: TempSource '複数のソースファイル名は「|」で区切ります。
'TempEnd' 複数の宛先ファイル名は「|」で区切られます。
' 注: 上記の 2 つのパラメータは一貫性を保ち、両方ともフルパスにしてください。
'Server.MapPath メソッドによって処理されました
'戻り値: 成功した場合は true、失敗した場合は false
'************************************************ * *****
関数 CopyFiles(TempSource,TempEnd)
エラー時は次へ再開
Dim CopyFSO、arrSource、arrEnd
CopyFiles = false
Set CopyFSO = Server.CreateObject("Scripting.FileSystemObject")
TempSource = "" または TempEnd = "" の場合
ErrRaise「ファイルまたはディレクトリをコピーしました」、「条件が空です」
CopyFiles = false
終了関数
終了の場合
arrSource = Split(TempSource,"|")
arrEnd = Split(TempEnd,"|")
UBound(arrSource) <> UBound(arrEnd) の場合
CopyFiles= false
終了関数
終了の場合
for i=0 から UBound(arrSource)
srcName = arrSource(i)
tarName = arrEnd(i)
CopyFSO.FileExists(srcName) ではなく CopyFSO.FileExists(tarName) の場合
CopyFSO.CopyFile srcName,tarName
CopyFiles = true
終了の場合
CopyFSO.FolderExists(srcName) ではなく CopyFSO.FolderExists(tarName) の場合
CopyFSO.CopyFolder srcName,tarName
CopyFiles = true
終了の場合
次
CopyFSO = なしを設定します
エラーの場合は、
'エラークリア()
CopyFiles = false
終了の場合
終了機能
%>