掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
パラメータの受け渡し方について (ID:138679)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
特攻隊長まるるうさん回答ありがとうございます。 アドバイス通りやってみたのですがうまく実行されません。 何が原因かわからないので教えて頂けないでしょうか？ よろしくお願いします。 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, "*") 'ファイルが存在したら別フォルダーへ移動させる。 Call MovingFiles(files, OriginalFolder, BatFileName) End If End Sub Private Sub MovingFiles(ByVal files As String(),ByVal OriginalFolder As String, ByVal BatFileName As String) Dim GetFiles As String Dim MoveFiles As String Dim MovingFolder as string = "C:\CCC" OriginalFolder = "C:\AAA" BatFileName = "C:\BBB\hello.bat" For Each GetFiles In files '移動するファイルの名前だけを取得 MoveFiles = GetFiles.Remove(0, GetFiles.LastIndexOf("\") + 1) File.Move(GetFiles, MovingFolder & "\" & MoveFile) Next GetFiles 'batファイルを実行する System.Diagnostics.Process.Start(BatFileName) End Sub
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.