拖入的文件去掉2进制的前4个字节，并重新生成同名png文件

2023-04-29技术经验 浏览

这个bat的作用是把拖入的文件去掉2进制的前4个字节，并重新生成同名png文件。。目前问题是一次只能拖入一个文件，，能不能优化以下实现能多个文件拖入？？？

'获取被拖拽的文件集合 Set files = WScript.Arguments.Unnamed 'Setup Objects Set FSO = CreateObject("Scripting.FileSystemObject") For Each file In files     If FSO.FileExists(file) Then         '处理文件，并输出同名png文件         Set oStream = CreateObject("ADODB.Stream")         oStream.Type = 1    'adTypeBinary         oStream.Mode = 3    'adModeReadWrite         oStream.Open()         With CreateObject("ADODB.Stream")             .Type = 1    'adTypeBinary             .Mode = 3    'adModeReadWrite             .Open()             .LoadFromFile file             .Position = 4             .CopyTo oStream             .Close()         End With         newFileName = FSO.GetParentFolderName(file) & "\" & FSO.GetBaseName(file) & ".png"         oStream.SaveToFile newFileName, 2    'adSaveCreateOverWrite         oStream.Close()     End If Next