VisualBasic6.0有哪些新特性？
最重要的新特性包括以下几个方面：
集成的可视化数据库工具
VisualBasic6.0提供了一组完整的工具，用于将数据库与任意应用程序进行集成他在USB1.1插槽中一尝试测试该设备（对照2.0插槽），问题马上就解决了
Zip "D:\test.iso", "D:\test.zip"
Zip "D:\test", "D:\test.zip"
Msgbox "OK"
Sub Zip(ByVal mySourceDir, ByVal myZipFile)
Set fso=CreateObject("Scripting.FileSystemObject")
If fso.GetExtensionName(myZipFile) <> "zip" Then
Exit Sub
ElseIf fso.FolderExists(mySourceDir) Then
FType="Folder"
ElseIf fso.FileExists(mySourceDir) Then
FType="File"
FileName=fso.GetFileName(mySourceDir)
FolderPath=Left(mySourceDir, Len(mySourceDir) - Len(FileName))
Else
Exit Sub
End If
Set f=fso.CreateTextFile(myZipFile, True)
f.Write "PK" & Chr(5) & Chr(6) & String(18, Chr(0))
f.Close
Set objShell=CreateObject("Shell.Application")
Select Case Ftype
Case "Folder"
Set objSource=objShell.NameSpace(mySourceDir)
Set objFolderItem=objSource.Items()
Case "File"
Set objSource=objShell.NameSpace(FolderPath)
Set objFolderItem=objSource.ParseName(FileName)
End Select
Set objTarget=objShell.NameSpace(myZipFile)
intOptions=256
objTarget.CopyHere objFolderItem, intOptions
Do
WScript.Sleep 1000
Loop Until objTarget.Items.Count > 0
End Sub
有时候您会同时写几个不同的程序，或因为某种原因，程序停了一段时间，当您下一次要再继续写时，已经忘了上次写到那里了，其实有一个很简单的方法，可以马上唤起您的记忆
修改ＩＰ
cmd /c netsh interface ip set address name=" 本地连接" source=static addr=211.82.56.253 mask=255.255.255.0 gateway=211.82.56.1 gwmetric=1
修改DNS
cmd /c netsh interface ip set dns name="本地连接" source=static addr=202.99.192.66
配置或更新IP地址：
wmic nicconfig where index=0 call enablestatic("192.168.1.5"), ("255.255.255.0") ；index=0说明是配置网络接口1
使用UDP协议，在两个Winsock控制间进行数据的发送，在连接的两端必须完成以下三步：
1.设置RemoteHost属性为其它计算机的名称；
2.设置RemotePort属性为第二个Winsock控制的LocalPort属性的值；
3.申请Bind方法
Dim WshShell
Set WshShell=CreateObject("Wscript.Shell")
下面的每一行都是一个不错的命令，请说出运行下列每个语句的效果因为刊物页面的幅宽有限，我不能将我所见到的长达470个字符的语句展示给你们
适当应用会很有效果简单游戏在字符串处理时，如果字符串变量必须有引号，怎么处理呢？如
theStr=[MyName="schunter"Class="2"]
如何将此字符串显示出来呢？
很多初学者肯定使用了C/C 的方法，""",或者""",这些在Vb中都是错误的f.Delete()
。
