copyFolder = "C:\COPY" Set objShell = CreateObject("Shell.Application") Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(copyFolder) Then fso.CreateFolder(copyFolder) End If Set objFolder = objShell.BrowseForFolder( 0, "フォルダ選択", 0 ) If objFolder is nothing Then WScript.Quit End If Set file = fso.CreateTextFile( copyFolder & "\FILES.TXT", True ) Set objFolderItems = objFolder.Items For Each f In objFolderItems If Not f.IsFolder Then file.WriteLine( f.Name & vbTab & f.Size ) bname = fso.GetBaseName(f.Path) name = copyFolder & "\" & bname & " " & f.Size fso.CopyFile f.Path, name fso.DeleteFile(f.Path) End If Next
