VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 ファイル関係のメニュー
1.ファイルの情報(属性・タイムスタンプ・サイズ)を取得・設定する
2.ファイルのコピー・移動・削除・ファイル名の変更
3.ファイルに関するパス操作色々
4.指定のフォルダー内のファイルをすべて列挙する
5.指定フォルダー内の全ファイル数・サブフォルダー数を取得する
6.指定フォルダー以下のサブフォルダー内を含めた総ファイル数を取得
7.指定フォルダー以下のサブフォルダー内含めた総ファイルサイズを取得する
8.指定フォルダー以下サブフォルダー内も含む全ファイルを列挙する
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載のファイルに関するサンプル


2.ファイルのコピー・移動・削除・ファイル名の変更(32_Fil_02) (旧、SampleNo.023)
1.File.Copy メソッド を使ってのファイルのコピー
2.FileInfo.MoveTo メソッド を使ってのファイルの移動
3.FileInfo.MoveTo メソッド を使ってのファイル名の変更
4.FileInfo.Delete メソッド を使ってのファイルの削除
5.
6.

 下記プログラムコードに関する補足・注意事項 
動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86
Option :[Compare Text] [Explicit On] [Infer On] [Strict On]
Imports :追加なし
参照設定:
追加なし
その他 :
    :
このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので)
必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい)
このページのトップへ移動します。 1.File.Copy メソッド を使ってのファイルのコピー

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
'File.Copy メソッド を使ってのファイルのコピー
    'File.Copy メソッド
    '既存のファイルを新しいファイルにコピーします。
    Dim SourceFile As String = "test.txt"
    Dim DestinationFile As String = "test001.txt"
    'ファイルを扱う場合ファイルの有無を確認すようにして下さい。
    If System.IO.File.Exists(SourceFile) Then

        '既に同じ名前のファイルが存在するとエラーとなるのでチェックが必要
        If System.IO.File.Exists(DestinationFile) = False Then
            '既存のファイルを新しいファイルにコピーします。
            '同じ名前のファイルを上書きできません。
            System.IO.File.Copy(SourceFile, DestinationFile)
            MessageBox.Show("新しいファイルにコピーしました")
        End If

        'こちらはチェックの必要はありません。
        If System.IO.File.Exists(DestinationFile) Then
            '同じ名前のファイルの上書きが許可されます。
            System.IO.File.Copy(SourceFile, DestinationFile, True)
            MessageBox.Show("ファイルの上書きコピーをしました")
        End If
    End If
End Sub

このページのトップへ移動します。 2.FileInfo.MoveTo メソッド を使ってのファイルの移動

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
'FileInfo.MoveTo メソッド を使ってのファイルの移動
    'FileInfo.MoveTo メソッド
    '指定したファイルを新しい場所に移動します。
    'オプションで新しいファイル名を指定することもできます。
    Dim SourceFile As String = "test001.txt"
    Dim DestinationFile As String = "..\..\test001.txt"

    Dim fi As New System.IO.FileInfo(SourceFile)
    '移動先に同名のファイルが存在しなくて移動するファイルが存在するか確認
    If System.IO.File.Exists(DestinationFile) = False And System.IO.File.Exists(SourceFile) Then
        'ファイルを移動
        fi.MoveTo(DestinationFile)
        MessageBox.Show("ファイルを移動しました。")
    End If
End Sub

このページのトップへ移動します。 3.FileInfo.MoveTo メソッド を使ってのファイル名の変更

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
    '同じフォルダーに違う名前で移動すれば、ファイル名の変更になります。
    If System.IO.File.Exists("..\..\test007.txt") = False And System.IO.File.Exists("..\..\test001.txt") Then
        'ファイル名の変更
        System.IO.File.Move("..\..\test001.txt", "..\..\test007.txt")
        MessageBox.Show("ファイル名を変更しました。")
    End If
End Sub

このページのトップへ移動します。 4.FileInfo.Delete メソッド を使ってのファイルの削除

Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
'FileInfo.Delete メソッド を使ってのファイルの削除
    'FileInfo.Delete メソッド
    'ファイルを完全に削除します。
    'ファイルが存在しない場合は、このメソッドは何も実行しません
    Dim DelFileName As String = "..\..\test007.txt"
    'ファイルの有無を確認
    If System.IO.File.Exists(DelFileName) Then
        'ファイルを削除
        Dim fi As New System.IO.FileInfo(DelFileName)
        fi.Delete()
        MessageBox.Show("..\..\test007.txt ファイルを削除しました。")
    End If

    DelFileName = "test001.txt"
    'ファイルの有無を確認
    If System.IO.File.Exists(DelFileName) Then
        'ファイルを削除
        Dim fi As New System.IO.FileInfo(DelFileName)
        fi.Delete()
        MessageBox.Show("test001.txt ファイルを削除しました。")
    End If

    DelFileName = "..\..\test001.txt"
    'ファイルの有無を確認
    If System.IO.File.Exists(DelFileName) Then
        'ファイルを削除
        Dim fi As New System.IO.FileInfo(DelFileName)
        fi.Delete()
        MessageBox.Show("..\..\test001.txt ファイルを削除しました。")
    End If
End Sub

このページのトップへ移動します。 5.


このページのトップへ移動します。 6.


このページのトップへ移動します。 検索キーワード及びサンプルコードの別名(機能名)





このページのトップへ移動します。