| |
>もちろん、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
|
|
Blue
- 06/3/30(木) 16:30 -
