フォルダ内のファイルの移動

📌 MoveTradingFiles — ダウンロードした相場データを自動仕分けするVBA
1. 📝 説明（短め）

📌 MoveTradingFiles — ダウンロードした相場データを自動仕分けするVBA

📝 説明（短め）

「tradingview～」「ni225～」のような名前でダウンロードされるファイルを、
Downloads → Desktop\input フォルダへ自動的に移動するスクリプトです。
手動で仕分ける手間を省いてくれる酔っ払いにも優しい小ワザVBA。

Sub MoveTradingFiles()
    Dim fso As Object
    Dim sourceFolder As String, destFolder As String
    Dim file As Object
    
    ' フォルダの指定（環境に合わせて修正してください）
    sourceFolder = Environ("USERPROFILE") & "\Downloads\"
    destFolder = "C:\Users\ゆーざー名\Desktop\input\"
    
    ' FileSystemObjectを使う
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' フォルダ内のファイルをループ
    For Each file In fso.GetFolder(sourceFolder).Files
        If (LCase(fso.GetFileName(file)) Like "tradingview*") _
        Or (LCase(fso.GetFileName(file)) Like "ni225*") Then
            ' 移動
            fso.MoveFile file.Path, destFolder & fso.GetFileName(file)
        End If
    Next
End Sub

Sub MoveTradingFiles()

Dim fso As Object

Dim sourceFolder As String, destFolder As String

Dim file As Object

' フォルダの指定（環境に合わせて修正してください）

sourceFolder = Environ("USERPROFILE") & "\Downloads\"

destFolder = "C:\Users\ゆーざー名\Desktop\input\"

' FileSystemObjectを使う

Set fso = CreateObject("Scripting.FileSystemObject")

' フォルダ内のファイルをループ

For Each file In fso.GetFolder(sourceFolder).Files

If (LCase(fso.GetFileName(file)) Like "tradingview*") _

Or (LCase(fso.GetFileName(file)) Like "ni225*") Then

' 移動

fso.MoveFile file.Path, destFolder & fso.GetFileName(file)

End If

End Sub