7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
northwolves 2005-09-19
- 打赏
- 举报
将C:\*.jpg(1-10) 都统一到100000byte.
Private Sub Command1_Click()
Dim i As Integer, b() As Byte
For i = 1 To 10
Open "c:\" & i & ".jpg" For Binary As i
ReDim b(100000 - LOF(i))
Put i, LOF(i), b
Close i
Next
MsgBox "ok"
End Sub
Private Sub Command1_Click()
Dim i As Integer, b() As Byte
For i = 1 To 10
Open "c:\" & i & ".jpg" For Binary As i
ReDim b(100000 - LOF(i))
Put i, LOF(i), b
Close i
Next
MsgBox "ok"
End Sub
chen2831278 2005-09-19
- 打赏
- 举报
ding yi xia
VBToy 2005-09-19
- 打赏
- 举报
我怀疑楼主的问题应该是：将一批尺寸大小不同的图片变成同一尺寸的图片。
脆皮大雪糕 2005-09-19
- 打赏
- 举报
不知道楼主想做什么，同一文件的大小？那么文件数据要么有冗余要么有缺失，前者便罢多占空间而已后这岂不是把文件损坏了？
