如何使用VB创建一个文件夹和保存文件?

来源：百度知道 编辑：UC知道 时间：2024/04/29 03:38:12
我想使用VB写一个这样的程序
使用一个图片控件一个TEXT控件
设置一个按钮
当点击按钮后图片控件显示
比如http://www.xx.com/(TEXT里的内容).gif
并且当图片完全显示后在D盘的PIC里创建一个当前日期的文件夹保存这个图片
小弟初学VB
谢谢
最好有一个做好的源代码
在线等

呵呵.早上看到这个贴子时,写了一半的代码,结果发现贴子消失了..

怎么现在又冒出来了..

等等吧..我给你写.

完整代码来了:
==================================
'新建工程,1个按钮,1个text,1个Inet
'对text内容没做判断,对下载图片出错没做判断
'已测试,如果图片URL正确,且网络正确,程序是无问题的..

Private Sub Command1_Click()
Dim b() As Byte
Dim strURL As String

strURL = "http://www.baidu.com/img/" & Text1
b() = Inet1.OpenURL(strURL, icByteArray)

If Len(Dir("d:\pic", vbDirectory)) = 0 Then MkDir ("d:\pic")
If Len(Dir("d:\pic\" & Date, vbDirectory)) = 0 Then MkDir ("d:\pic\" & Date)

Open "d:\pic\" & Date & "\" & Text1 For Binary Access Write As #1
Put #1, , b()
Close #1
Picture1.Picture = LoadPicture("d:\pic\" & Date & "\" & Text1)
MsgBox &