求每行代码注释(懂VB的来)

阿卡利

1. UserVar du_path="D:\测试文档" "查毒文件夹路径"
   
2. Dim FolderString(1000)
   
3. Dim Index, MaxFolderCount
   
4. Index=0
   
5. MaxFolderCount = 1
   
6. //查毒径路赋值
   
7. FolderString(Index) = du_path
   
8. TracePrint FolderString(Index)
   
9. Do While true
   
10.     currentFolderFullPath = FolderString(Index)
    
11.     TracePrint currentFolderFullPath
    
12.     Index = Index+1
    
13.     If currentFolderFullPath = "" Then
    
14.         Exit do
    
15.     End If
    
16.     Dim fso,currentFolder,subFolderset
    
17.     Set fso = CreateObject("Scripting.FileSystemObject")//创建系统文件对象
    
18.     Set currentFolder = fso.GetFolder(currentFolderFullPath)//取得目录对象  
    
19.     Set subFolderSet = currentFolder.SubFolders  //分割
    
20.     For Each subFolder In subFolderSet
    
21.     TracePrint subFolder
    
22.     TracePrint subFolderSet
    
23.         //MsgBox subFolder.Path
    
24.         FolderString(MaxFolderCount) = subFolder.Path
    
25.         TracePrint FolderString(MaxFolderCount)
    
26.         MaxFolderCount = MaxFolderCount + 1
    
27.         TracePrint MaxFolderCount
    
28.     Next  
    
29. Loop
    
30. Dim FileString(1000)
    
31. Dim FileCounts
    
32. FileCounts = 0
    
33. For i_wjj = 0 To MaxFolderCount-1
    
34.     Set fso = CreateObject("Scripting.FileSystemObject")
    
35.     Set currentFolder = fso.GetFolder(FolderString(i_wjj))
    
36.     Set Files = currentFolder.Files
    
37.     If i_wjj = 0 Then
    
38.         TracePrint "扫描当前目录文件"
    
39.     Else
    
40.         TracePrint "扫描第" & i_wjj & "个文件夹"
    
41.     End If
    
42. Next

复制代码

但丁DD

这么简单的。。

阿卡利

但丁DD 发表于 2013-2-6 18:41
这么简单的。。

回答下嘛  回答下嘛 回答下嘛

bsq1932

你给你精币太少了。。。没人愿意抠字

ljmst

两种方式：一是rem 注释内容，二是' 注释内容

在每行代码后面    加上   rem 我的注释内容
在每行代码后面    加上   ' 我的注释内容
就这么简单

longtengxp

看起来好~~像啊~~