復元できないようにファイルを消すには (ID:125878)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 そう言うことであれば、ファイルに上書きで filename = "C:\test.txt" fileNo = freefile Open filename For Binary As #fileNo For n = 0 To FileLen(filename) Put #1, , &HE5 Next Close (fileNo) Kill (filename) こんなもんで良いのでは。