投稿日 | : 2005/08/05(Fri) 11:50 |
投稿者 | : ふく |
Eメール | : |
URL | : |
タイトル | : コモンダイアログ使用後にフォルダが削除できない |
いつも参考にしています。
早速ですが、コモンダイアログを使用してファイルを保存(実際にはコピー)
したときにファイルを保存したフォルダが削除できません。
プログラムが使用していると出ます。
(プログラムを止めれば削除できます)
プログラムを動かしたまま削除できるようにするにはどのようにしたらよいでしょうか?
下記はコモンダイアログの記述してある部分です
コモンダイアログを使用して、フォルダを作成しそこにファイルをコピーする仕様です。
Private Sub DataSave()
With CommonDialog1
.InitDir = "C:\Documents and Settings\All Users\デスクトップ"
.Filter = "測定ファイル (*.csv)|*.csv"
.FileName = "SaveName"
.CancelError = True
On Error Resume Next
.ShowSave
If Err Then Exit Sub
On Error GoTo 0
On Error Resume Next
FileCopy App.Path & "\data\" & "SaveName.csv", .FileNam
e
End With
End Sub
WinXP,VB6 sp6