指定のファイルをコピー・削除・移動する
 　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　玄関へお回り下さい。
指定のファイルをコピー・削除・移動する　　　　　　　　　　　(256)
まず、参照設定をしておいて下さい。
そして Form に Command1を配列で３個とLabel1を貼り付けて Sample.txt を準備しておいて下
さい。　
　　 Option Explicit　　 'SampleNo=256　WindowsXP VB6.0(SP5) 2003.02.22

Private Sub Command1_Click(Index As Integer)
　　Dim Fso　　 As New FileSystemObject
　　Dim FsoFile As File
　　Select Case Index
　　　　Case 0
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample.txt")
　　　　　　FsoFile.Copy (App.Path & "\Sample1.txt")
　　　　　　Label1.Caption = "Sample.txt を Sample1.txt でコピーしました。"
　　　　Case 1
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample1.txt")
　　　　　　FsoFile.Delete
　　　　　　Label1.Caption = "Sample1.txt を削除しました。"
　　　　Case 2
　　　　　　Set FsoFile = Fso.GetFile(App.Path & "\Sample1.txt")
　　　　　　FsoFile.Move ("c:\Sample1.txt")
　　　　　　Label1.Caption = "Sample1.txt を C:\ に移動しました。"
　　End Select
　　Set FsoFile = Nothing
End Sub

　
この場合VBのFileCopyやKillステートメントと使用方法が違います。
MoveメソッドはVBには無い機能なので便利かと思います。　　　





2003/02/26