Excel VBA フォルダチェックファイルシステムオブジェクト (FSO: File System Object) モデルによるファイルへのアクセス

VB

Sub FolderCheck() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") ''ログ出力フォルダがなければ作成 If FSO.FolderExists(LogFolder) = False Then FSO.CreateFolder LogFolder End If Set FSO = Nothing End Sub FileSystemObj…

2016-02-22

Execl VBA ログ出力テキスト出力 FileSystemObject オブジェクト

VB

Sub WriteLog(msg As String) Dim FSO As Object, LOG As Object Set FSO = CreateObject("Scripting.FileSystemObject") 'ログ出力フォルダチェック Call FolderCheck ''ログファイルがなければ作成 LogFile = LogFolder & "\" & LogFileName If FSO.FileEx…

2016-02-22

VBA ファイル名取得

VB

Function GetCsvName(Paste_Folder, File, file_yyyy_mm) '引数）フォルダ名、ファイル名、日付（年月日） On Error Resume Next Set FSO = CreateObject("Scripting.FileSystemObject") 'フルパスからファイル名のみを取得する Csv_File_Name = Replace(Rep…