|
>もちろん、FileSystemObjectをつかって親ディレクトリ→親ディレクトリとして取得するのも可。
のサンプル
Sub test()
Dim objFSO As Object
Dim objFolder As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(ActiveWorkbook.Path).ParentFolder
If objFolder Is Nothing Then Exit Sub
Set objFolder = objFolder.ParentFolder
If objFolder Is Nothing Then Exit Sub
With objFSO.CreateTextFile(objFSO.BuildPath(objFolder.Path, "test.txt"), True)
.WriteLine ("これはテストです。")
.Close
End With
Set objFolder = Nothing
Set objFSO = Nothing
End Sub
|
|