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

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

用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 

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

本類教程下載

系統下載排行

主站蜘蛛池模板: 国产xxxxx片免费观看 | 欧美日韩国产一区三区 | 永久精品| 亚洲国产成人久久综合区 | 欧美视频一区二区专区 | 自拍偷自拍亚洲精品情侣 | 手机在线一区二区三区 | 亚洲欧美国产另类 | 亚洲久久网站 | 午夜免费影院 | 精品亚洲一区二区三区在线播放 | 欧美大片一区二区三区 | 成人久久久精品乱码一区二区三区 | 老司机精品视频一区二区 | 日本免费看视频 | 国产影片大全 | 国产aaaaaa| 国产亚洲精品激情一区二区三区 | 久久久中文 | 亚洲操操操| 91精品国产综合久久香蕉 | 久久日本精品国产精品白 | 亚洲精品黄色 | 美女久久久久久 | 精品伊人久久大线蕉地址 | 国产成人高清精品免费软件 | 久久99精品久久久66 | 天天干免费视频 | 久久精品国产这里是免费 | 香港aa三级久久三级不卡 | 亚洲国产欧美视频 | 日韩精品一区二区在线观看 | 91网址在线| 国产精品www视频免费看 | 最新福利小视频在线播放 | 日韩v在线 | 欧美国产日韩综合在线 | 欧美亚洲国产日韩 | 国产午夜精品久久理论片小说 | 午夜小片 | 精品国产成人高清在线 |