VB初心者です。VB2005で写真編集アプリを作成しています。
PictureBoxに表示したjpgファイルを名前を変えて移動する処理をしたいのですが、
「ファイルが使用中・・・」メッセージにより実行出来ません。
PictureBoxに画像ファイルを表示した状態で以下のように書いてます。

fs = New System.IO.FileStream(C:\1.jpg,IO.FileMode.Open,IO.FileAccess.Read)
PictureBox1.Image = System.Drawing.Image.FromStream(fs)
fs.Close()
System.IO.File.Move(C:\1.jpg, C:\2.jpg)

どなたか宜しくお願いします。

> 「ファイルが使用中・・・」メッセージにより実行出来ません。
別に問題なく実行できますが？


> PictureBoxに画像ファイルを表示した状態で以下のように書いてます。

まさか、下記のそのままと言う事はないですよね？
実際に使っているコードをペーストして投稿するようにして下さい。

花ちゃん さん ご回答ありがとうございます。
> 実際に使っているコードをペーストして投稿するようにして下さい。
かなり省略してしまいました。すいません。
選択したフォルダ内の全てのjpgファイルをリストボックスに表示し、SelectedIndexを変更して
PictureBoxに画像表示。TextBoxを配置した別のFormを表示させ、BtnClickイベント

Private Sub BtnTest_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnOK.Click

Dim bmp As New System.Drawing.Bitmap(imgFile)
Nitiji = Text年.Text + 1988 & ":" & Text月.Text & ":" & Text日.Text & " " & Text時.Text & ":" & Text分.Text & ":" & Text秒.Text

Dim i As Integer
  For i = 0 To bmp.PropertyItems.Length - 1
    Dim pi As System.Drawing.Imaging.PropertyItem = bmp.PropertyItems(i)
       If pi.Id = &H132 Or pi.Id = &H9003 Or pi.Id = &H9004 And pi.Type = 2 Then
          pi.Value = System.Text.Encoding.ASCII.GetBytes( _
          Nitiji + ControlChars.NullChar)
          pi.Len = pi.Value.Length
          bmp.SetPropertyItem(pi)
       End If
  Next i
Dim File_Name As String = System.IO.Path.GetFileName(imgFile)
Dim FullPath As String = "D:\ChangeFile\" & File_Name
bmp.Save(FullPath, System.Drawing.Imaging.ImageFormat.Jpeg)
bmp.Dispose()
'ここまでは出来ます。
Dim fs As System.IO.FileStream
        fs = New System.IO.FileStream(imgFile, IO.FileMode.Open, IO.FileAccess.Read)
        Me.Picture1.Image = System.Drawing.Image.FromStream(fs)
        fs.Close()
        Dim fi As New System.IO.FileInfo(imgFile)

        Try
            fi.Delete()'ここで必ずエラーとなります。
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
End Sub
別フォルダに保存までは出来るのですが、
元ファイルの削除・移動・名前変更が一切出来ません。
宜しくお願いします。

>             fi.Delete()'ここで必ずエラーとなります。

エラーがでるなら、どのようなエラー内容かを書いて下さい。
ファイルが使用中・・のエラーがでるなら、ファイルが使用中 だからでは。
imgFile はどのようになっているのですか？

多分、最初の処理の部分(未掲載の部分)でファイルをロック(使用中)しているかと
思うので、一度最初の部分等をコメントにして確認してみて下さい。

又、せっかくのコードなので動作確認できるようにするとこちらでも確認できるし
コメントが入っていると何をやりたい（やろうとしているのか）のかが掴めるのですが

ファイルのタイムスタンプを書き変えたいなら他の方法を試してみるとか。

花ちゃんさん・スクリプトプログラマさん ご回答ありがとうございます。
> ファイルが使用中・・のエラーがでるなら、ファイルが使用中 だからでは。
> imgFile はどのようになっているのですか？
Dim imgFile As String = Me.List1.Text 'ピクチャーボックスに表示したjpgファイルのフルパス
> 多分、最初の処理の部分(未掲載の部分)でファイルをロック(使用中)しているかと
> 思うので、一度最初の部分等をコメントにして確認してみて下さい。
bmp.Dispose() これでロック解除出来ていると思うのですが・・・
> 又、せっかくのコードなので動作確認できるようにするとこちらでも確認できるし
> コメントが入っていると何をやりたい（やろうとしているのか）のかが掴めるのですが
> Dim i As Integer
>   For i = 0 To bmp.PropertyItems.Length - 1
>     Dim pi As System.Drawing.Imaging.PropertyItem = bmp.PropertyItems(i)
'Exif情報から日付関係を探す
>        If pi.Id = &H132 Or pi.Id = &H9003 Or pi.Id = &H9004 And pi.Type = 2 Then
'値を変更する
>           pi.Value = System.Text.Encoding.ASCII.GetBytes( _
>           Nitiji + ControlChars.NullChar)
>           pi.Len = pi.Value.Length
'設定する
>           bmp.SetPropertyItem(pi)
>        End If
>   Next i
> Dim File_Name As String = System.IO.Path.GetFileName(imgFile)
> Dim FullPath As String = "D:\ChangeFile\" & File_Name
'"D:\ChangeFile\" & File_Name へ保存する
> bmp.Save(FullPath, System.Drawing.Imaging.ImageFormat.Jpeg)
> bmp.Dispose()
> 'ここまでは出来ます。

FileStreamオブジェクトを使用して画像のロックを解除
> Dim fs As System.IO.FileStream
>         fs = New System.IO.FileStream(imgFile, IO.FileMode.Open, IO.FileAccess.Read)
>         Me.Picture1.Image = System.Drawing.Image.FromStream(fs)
>         fs.Close()
>         Dim fi As New System.IO.FileInfo(imgFile)
>
>         Try
>             fi.Delete()'ここで必ずエラーとなります。
>         Catch ex As Exception
>             MessageBox.Show(ex.Message)
>         End Try
こんな感じです・・・。

> ファイルの削除はタイミングエラーが発生し得るものです。
> (エクスプローラが見に行ったりするので)
> 暫時置いて数回リトライしてみては。

何度かリトライしてみたら、なんと出来ました！！（する時で回数は変わります・・）
１回で削除・移動する方法など無いものですかね・・

うまく行ってよかったですね。

ところで、そのエラーが発生するとき、
エクスプローラでそのファイルのフォルダを開いています？

スクリプトプログラマさん 返信ありがとうございます。

> ところで、そのエラーが発生するとき、
> エクスプローラでそのファイルのフォルダを開いています？

エクスプローラは開いてない状態でやっています。

> エクスプローラは開いてない状態でやっています。

ということは、開いているのはエクスプローラじゃなさそう。

closeが非同期で遅延するとはあまり思えませんし。。。

> ということは、開いているのはエクスプローラじゃなさそう。
>
> closeが非同期で遅延するとはあまり思えませんし。。。

開いてるファイルも無く、ファイル削除出来る時・出来ない時に規則性が有るわけでも無く・・・
ＶＢのバグなのかそれとも・・・

地道に調べてみます。
ありがとうございました。

>> closeが非同期で遅延するとはあまり思えませんし。。。
Disposeが非同期で遅延してるのかも。

System.Drawing.Bitmap 削除で検索すれば、
http://vsug.jp/tabid/63/forumid/44/postid/8416/view/topic/Default.aspx
で、最初からロックを取らない方法にすればよいのでは。

ファイルの削除はタイミングエラーが発生し得るものです。
(エクスプローラが見に行ったりするので)
暫時置いて数回リトライしてみては。