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

タイトル ： Re^2: ファイルの移動とコピー
投稿日： 2008/03/04(Tue) 11:07
投稿者： rar
返答ありがとうございます。こういう場での質問になれていないため説明が不十分でした。

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


---------------------
ここまでで画像をopendialogを使い選択

        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

この状態だと画像をいろいろなところから読み込むので絶対パスのそぎ落としがうまくできていません。（ファイルの名前だけ読むものなどあればお願いします。
プログラムとしては、ダイアログで選択したファイルを画像フォルダに移動コピー
元の場所には同じ画像が残る、という感じになります。
説明がまたうまくできていませんがよろしくお願いします。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

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