日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

用VB完成文件改名

用VB完成文件改名

更新時間:2022-05-08 文章作者:未知 信息來源:網絡 閱讀次數:

方法一

name
重新命名一個文件、目錄、或文件夾。
語法:
name oldpathname as newpathname

Name語句重新命名文件并將其移動到一個不同的目錄或文件夾中。如有必要,Name可跨驅動器移動文件。但當newpathname和oldpathname都在相同的驅動器中時,只能重新命名已經存在的目錄或文件夾。Name不能創建新文件、目錄或文件夾。在一個已打開的文件上使用Name,將會產生錯誤。必須在改變名稱之前,先關閉打開的文件。Name參數不能包括多字符(*)和單字符(?)的通配符。

示例本示例使用Name語句來更改文件的名稱。示例中假設所有使用到的目錄或文件夾都已存在。在Macintosh中,默認驅動器名稱是C, imOldName,NewNameOldName="OLDFILE":NewName="NEWFILE"注釋:定義文件名。NameOldNameAsNewName注釋:更改文件名。OldName="C:\MYDIR\OLDFILE":NewName="C:\YOURDIR\NEWFILE"NameOldNameAsNewName注釋:更改文件名,并移動文件。
★★★★★★★★★★★★★★★★★★★★★★★★★★

方法二
Option Explicit

注釋: // Shell File Operations

Const FO_MOVE = &H1
Const FO_COPY = &H2
Const FO_DELETE = &H3
Const FO_RENAME = &H4
Const FOF_MULTIDESTFILES = &H1
Const FOF_CONFIRMMOUSE = &H2
Const FOF_SILENT = &H4 注釋: don注釋:t create progress/report
Const FOF_RENAMEONCOLLISION = &H8
Const FOF_NOCONFIRMATION = &H10 注釋: Don注釋:t prompt the user.
Const FOF_WANTMAPPINGHANDLE = &H20 注釋: Fill in SHFILEOPSTRUCT.hNameMappings
注釋: Must be freed using SHFreeNameMappings
Const FOF_ALLOWUNDO = &H40
Const FOF_FILESONLY = &H80 注釋: on *.*, do only files
Const FOF_SIMPLEPROGRESS = &H100 注釋: means don注釋:t show names of files
Const FOF_NOCONFIRMMKDIR = &H200 注釋: don注釋:t confirm making any needed dirs

Const PO_DELETE = &H13 注釋: printer is being deleted
Const PO_RENAME = &H14 注釋: printer is being renamed
Const PO_PORTCHANGE = &H20 注釋: port this printer connected to is being changed
注釋: if this id is set, the strings received by
注釋: the copyhook are a doubly-null terminated
注釋: list of strings. The first is the printer
注釋: name and the second is the printer port.
Const PO_REN_PORT = &H34 注釋: PO_RENAME and PO_PORTCHANGE at same time.


Private Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String 注釋: only used if FOF_SIMPLEPROGRESS
End Type


注釋:Private Declare Function SHFileOperation Lib "shell32.dll" Alias " SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long


Private Sub Command1_Click()
Dim tud As SHFILEOPSTRUCT
Dim rc As Long
With tud
.hwnd = Me.hwnd
.pFrom = "c:\aaa.txt"
.pTo = "c:\bbb.txt"
.fFlags = FOF_ALLOWUNDO
.wFunc = FO_RENAME
End With
rc = SHFileOperation(tud)
End Sub
★★★★★★★★★★★★★★★★★★★★★★★★★★

方法三
Private Sub Command1_Click()
Dim icmd As Object
Set icmd = CreateObject("wscript.shell")
icmd.Run "command.com /c rename c:\test.txt aa.txt", 0, True
End Sub

可運行任何DOS命令,2000下需用cmd.exe 

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 91成人免费观看网站 | 亚洲欧美校园 | 91国内揄拍国内精品对白不卡 | 91精品国产91久久久久久麻豆 | 欧美精品网站 | 欲色真实偷拍啪啪 | 亚洲www在线观看 | 日韩亚洲欧美理论片 | 久久99精品一久久久久久 | a级黑粗大硬长爽猛视频毛片 | 成人久久影院 | 无夜精品久久久久久 | 国产亚洲欧美另类专区 | 91亚洲视频在线 | 国产精品制服诱惑 | 日韩免费精品一级毛片 | 青青草综合视频 | 日本深夜福利视频在线 | 久久综合亚洲鲁鲁五月天欧美 | 日本高清视频一区二区三区 | 国产精品 视频一区 二区三区 | 中国美女毛片 | 国产uv1区二区三区 国产v精品成人免费视频400条 | 久久综合九色 | 欧美成人啪啪看片 | 337p欧洲亚大胆精品 | 日日日影院 | 午夜影院在线观看视频 | 在线一区二区三区 | 在线观看福利网站 | 精品久久一区二区 | 日本 在线 | 亚洲欧美乱综合图片区小说区 | 中文字幕二区三区 | 亚洲精品中文字幕乱码 | 亚洲区一 | 国内久久久久久久久久 | 波多野一区二区三区在线 | 精品久久久久久久久久香蕉 | 操一操影院 | 日本免费人成黄页在线观看视频 |