質問者が納得デスクトップに「hoge」フォルダを作成します。
既に「hoge」フォルダが存在する場合は、そのままです。
フォルダ内に追加していきます。
フォルダ内に同名ファイルが既に存在した場合は
確認無しの強制上書きされます。
Sub sample()
Dim objFSO As Object
Dim myFolder As String
Dim myFileNM As String
Dim myFileNo As Integer
Dim myCol As Integer
Set objFSO ...
5750日前view6
