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

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

用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 

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 九九热视频这里只有精品 | 爱干在线 | 九九这里只有精品 | 一区二区三区高清 | 亚洲第一区视频 | 日本久草视频 | 国产看片在线 | 男女男精品网站免费观看 | 欧美性猛交xxxx乱大交蜜桃 | 九九视频精品全部免费播放 | 中国国产aa一级毛片 | 欧美综合图片一区二区三区 | 日韩亚洲影院 | 四虎影视库国产精品一区 | 亚洲欧美日韩高清mmm777 | 1000部啪啪勿入十八免费 | 亚洲国产一区二区三区最新 | 亚洲福利小视频 | 亚洲综合久久1区2区3区 | 欧美成人免费观看久久 | 自拍亚洲午夜伦li片影院 | 综合视频在线 | a级毛片免费| 国产精品香蕉一区二区三区 | 18美女腿打开无遮挡 | 亚洲综合狠狠 | 91网站在线播放 | 在线免费观看亚洲视频 | 青青草好| 欧美日韩精品一区二区在线播放 | 自拍偷拍免费视频 | 日本免费毛片 | 日韩欧美一区二区三区视频 | 亚洲综合丁香婷婷六月香 | bt天堂中文在线 | 日本高清视频色www在线观看 | 欧美亚洲综合久久 | 国产精品香蕉在线观看首页 | 久久伊人影视 | 国产福利小视频在线观看 | 日本高清在线精品一区二区三区 |