首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

初学者 急

2012-02-25 
菜鸟 急!!!SubShowFoldInfo(folderspec)Dimfs,f,sSetfsCreateObject( Scripting.FileSystemObject )Set

菜鸟 急!!!
Sub   ShowFoldInfo(folderspec)

                Dim   fs,   f,   s
               
                Set   fs   =   CreateObject( "Scripting.FileSystemObject ")
               
                Set   f   =   fs.GetFolder(folderspec)
               
                s   =   f.DateCreated
               
                MsgBox   s
               
诸位大虾   请问这段代码运行结果在哪看啊     (我刚学   勿笑啊   呵阿)

[解决办法]
Sub ShowFoldInfo(folderspec)

Dim fs, f, s

Set fs = CreateObject( "Scripting.FileSystemObject ")

Set f = fs.GetFolder(folderspec)

s = f.DateCreated

MsgBox s
End Sub

Private Sub Command1_Click()
ShowFoldInfo "c:\windows "
End Sub
我想还得在显示器上看吧!
[解决办法]
同上
[解决办法]
试试看就知道了

你按管理,然后就看到了
[解决办法]
一共20分,3人回复,是分不均,哦?
现在好了,加这个4个回复!4*5=20

热点排行