|
現在ファイルを作成してすぐにクローズするというものを作りました。
問題なく処理は動くのですが、WITHステートメントを使用しております。
このWITHを使用しないで作ろうとするとうまくいきません。
何か方法を知っている方がいましたら教えてください。
よろしくお願いします。
■ソース
Public Sub CreateLogFile(ByVal strFileName As String)
Dim objFS
Dim strFilePath As String
strFilePath = c_FilePath & strFileName & c_Extension
Set objFS = CreateObject("Scripting.FileSystemObject")
If Not objFS.FolderExists(c_FilePath) Then
objFS.CreateFolder "c_FilePath"
End If
With objFS.CreateTextFile(strFilePath)
.Close
End With
Set objFS = Nothing
End Sub
|
|