パラメータの受け渡し方について (ID:138677)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

はじめまして。
ＶＢ初心者なんですがわからない所があるので教えて下さい。
あるフォルダーの中のファイルの移動させた後にbatファイルを動かすプログラムを作ってます。

Dim Original As String = "C:\AAA"
        Dim BatFileName As String = "C:\BBB\hello.bat"
        'ファイルが存在しているか確認する。
        If Directory.Exists(OriginalFolder & "\") Then
            Dim files As String() = Directory.GetFiles(OriginalFolder, "*")
            'ファイルが存在したら別フォルダーへ移動させる。
            MovingFiles(files)
        End If
        'batファイルを実行する
        System.Diagnostics.Process.Start(BatFileName)

End Sub

Private Sub MovingFiles(ByVal files As String())

Dim OriginalFolder As String = "C:\AAA"
        Dim MovingFolder As String = "C:\CCC"
        Dim GetFiles As String
        Dim MoveFiles As String

For Each GetFiles In files
        '移動するファイルの名前だけを取得  
         MoveFiles = GetFiles.Remove(0, GetFiles.LastIndexOf("\") + 1)

File.Move(GetFiles, MovingFolder & "\" &  MoveFile)

Next GetFiles

End Sub

このプログラムをMovingFiles()の部分をパラメータで渡してMovingFiles(files, OriginalFolder, BatFileName)で動かしたいのです。
いろんなサイトを見たのですが全然わからなく解決できませんでした。
すみませんがよろしくお願いします。

ＶＢ２００５です。

←解決時は質問者本人がここをチェックしてください。

戻る