VB怎么更改文件夹的名字？ - 编程论坛

#2

Artless2012-04-20 23:57

Name

#3

事业男儿2012-04-21 02:36

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

#4

Artless2012-04-21 02:49

以下是引用事业男儿在2012-4-21 02:36:33的发言：

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

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

#5

事业男儿2012-04-21 10:00

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

#6

wube2012-04-21 15:03

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

#7

事业男儿2012-04-23 11:37

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

#8

wube2012-04-23 17:17

记得以前贴过了...

'检查档案存在
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