|
返信ありがとうございます。
自分で調べた結果
なんとかうまく動かすことができました。
自分の無力さを痛感しました。
これからはいっそう自分の力で問題を解決できるよう努力します。
お騒がせしました。
■ソース
Public Sub CreateLogFile(ByVal strFileName As String)
Dim objFS, objFile
Dim strFilePath As String
strFilePath = c_FilePath & strFileName & c_Extension
Set objFS = CreateObject("Scripting.FileSystemObject")
objFS
If Not .FolderExists(c_FilePath) Then
Public Sub CreateLogFile(ByVal strFileName As String)
Dim objFS, objFile
Dim strFilePath As String
strFilePath = c_FilePath & strFileName & c_Extension
Set objFS = CreateObject("Scripting.FileSystemObject")
If Not .FolderExists(c_FilePath) Then
objFS.CreateFolder c_FilePath
End If
Set objFile = objFS.CreateTextFile(strFilePath)
objFile.Close
Set objFS = Nothing
|
|