Sub DeleteWithCmd()
Dim filePath As String
filePath = "C:\Users\username\Desktop\データ.txt"
Dim shell As Object
Set shell = CreateObject("WScript.Shell")
shell.Run "cmd /c del """ & filePath & """", 0, True
End Sub
Go to list of users who liked
Sub DeleteWithCmd()
Dim filePath As String
filePath = "C:\Users\username\Desktop\データ.txt"
Dim shell As Object
Set shell = CreateObject("WScript.Shell")
shell.Run "cmd /c del """ & filePath & """", 0, True
End Sub
Register as a new user and use Qiita more conveniently
Go to list of users who liked