タイトル | : ファイルの移動とコピー |
記事No | : 7120 |
投稿日 | : 2008/03/04(Tue) 03:23 |
投稿者 | : rar |
ダイアログでファイルを読み込みファイルをコピーしたものをimageフォルダに作成 という形をとっているのですが別なプロセスで使用されていますとなってしまいうまく プログラムが動きません。他にもコピーした先のダミーファイルの名前を変える際 いろいろなところから画像を読み込むので絶対パスをうまく削って名前だけにすることができません。うまく説明がいきませんが、 ファイルを移動させ、コピーする方法をご教授願いたいとおもいます。
Private Sub BtnRead_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRead.Click Dim ofd As New OpenFileDialog() Dim Dummy As String Dim ChangeFile As String ofd.FileName = "" ofd.InitialDirectory = "C:\" ofd.Filter = _ "画像ファイル(*.bmp;*.jpg;*.jpeg;*.gif)|*.bmp;*.jpg;*.jpeg;*.gif" ofd.FilterIndex = 1 ofd.Title = "画像ファイル選択" ofd.RestoreDirectory = True
If ofd.ShowDialog() = DialogResult.OK Then
System.IO.File.Create("G:\Image\Dummy.jpg")
ChangeFile = ofd.FileName.Replace("G:\Image\", "") Dummy = "G:\Image\Dummy.jpg" System.IO.File.Copy(ofd.FileName, Dummy, True) My.Computer.FileSystem.RenameFile(Dummy, ChangeFile)
End If End Sub
|