コード: 全て選択
Dim Leng As Long
Dim alls As Long
'ウインドウ設定
#N88BASIC
SetWindowText(_PromptSys_hWnd, "File_Deleter")
Dim A As String
'本プログラム
do
Color 7 ,-1
Print " 削除するファイルのパスを入力してください。 "
Print " 何も入力しない状態でENTERすると、終了します。"
Input " パスを入力 = < ",A
Print " 入力されたパス = < ";A;" >"
alls = DeleteFile ( A & "" )
print " ~削除中"
If A = "" Then
END
End If
If alls <> 0 Then
Color 1 ,7
print " 成功しました。"
Else
Color 2 ,7
print " 失敗しました。"
End If
print ""
loop
そのためwindowの最低まで到達すると、文字の上に文字と、上書きされてしまいます。
上書きさせないためにはどうすればいいでしょうか?