フォルダ

Sub test()


  Debug.Print CurDir
  
  

 'ChDir (CurDir & "\test2020421")

  ' MkDir ("test2020421")
  
  n1 = CurDir & "\testtext.txt"
  
  Open n1 For Output As #1
  
  Close #1
  
  Kill n1

  Debug.Print CurDir


End Sub