tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^2: 使用中のファイルを削除(移動)する方法
投稿日： 2007/12/04(Tue) 21:21
投稿者： mathar
花ちゃん さん ご回答ありがとうございます。
> 実際に使っているコードをペーストして投稿するようにして下さい。
かなり省略してしまいました。すいません。
選択したフォルダ内の全ての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
別フォルダに保存までは出来るのですが、
元ファイルの削除・移動・名前変更が一切出来ません。
宜しくお願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。