我想让VB读取Label1.Caption里面的数字，来更改文件夹的名字。比如Label1.Caption里面是数字6 然后VB就把文件夹的名字命名为 6  。麻烦把代码写详细点，最好有批注，谢谢！

Name

读取Label1.Caption里面的数字，来更改文件夹的名字。版主详细点好吗？谢谢！

读取Label1.Caption里面的数字，来更改什么文件夹的名字？
谢谢！

我的意思是标签上显示的是 6  就把c:\123 文件夹改名为 6

http://zhidao.baidu.com/question/65468516

我的意思是一个一直运行的软件会在指定的时间读取Label1.Caption = Format(Now, "mm月dd日hh时")，然后判断data文件夹里有没有mm月dd日hh时的文件夹。如果没有就会提示，是否建立mm月dd日hh时文件夹，如果有就不建立。

记得以前贴过了...

'检查档案存在
Public Function IsFileExist(strFileName As String) As Boolean
Dim varFSO As Variant, TempString As String
    Set varFSO = CreateObject("Scripting.FileSystemObject")
    IsFileExist = varFSO.FileExists(strFileName)
    Set varFSO = Nothing
End Function

'检查资料夹存在
Public Function IsFolderExist(strFolderName As String) As Boolean
Dim varFSO As Variant, TempString As String
    Set varFSO = CreateObject("Scripting.FileSystemObject")
    IsFolderExist = varFSO.FolderExists(strFolderName)
    Set varFSO = Nothing
End Function

'新增资料夹
Public Function CreateFolder(strFolderName As String) As Variant
Dim varFSO As Variant, TempString As String
    Set varFSO = CreateObject("Scripting.FileSystemObject")
    varFSO.CreateFolder strFolderName
    Set varFSO = Nothing
End Function

'删除资料夹
Public Function DeleteFolder(strFolderName As String) As Variant
Dim varFSO As Variant, TempString As String
    Set varFSO = CreateObject("Scripting.FileSystemObject")
    varFSO.DeleteFolder strFolderName
    Set varFSO = Nothing
End Function