请问大家知不知道用VB如何改变文件名。用什么命令或函数。

wangqiongyue 2000-08-05 12:15:00

...全文

104 2 打赏收藏转发到动态举报

写回复

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

wulang 2000-08-06

打赏
举报

回复

vicsue所说的是MSDN中的例子。
如果想要对文件系统进行更多的操作，可使用FileSystemObject，如：
Dim fs As FileSystemObject
Set fs = New FileSystemObject
fs.MoveFile "a","b"
详情可查阅MSDN

无言无忌 2000-08-05

打赏
举报

回复

Dim OldName, NewName
OldName = "OLDFILE": NewName = "NEWFILE" ' 定义文件名。
Name OldName As NewName ' 更改文件名。

OldName = "C:\MYDIR\OLDFILE": NewName = "C:\YOURDIR\NEWFILE"
Name OldName As NewName ' 更改文件名，并移动文件。

vb、vb.net编程中可以通过这个自定义函数去掉文件名中的扩展名

程序自己编的，工程打开就用，实现的功能是：点击按钮，打开commondialog对话框，同时选取多个文件，文件名全路径会保存到数组。也有注释，便于学习，加载多个文件的代码我写成了函数，直接拷贝调用即可!相当方便！

VB拦截Windows Explorer删除进程，内含API HOOK，源代码：倒霉蛋儿，程序有时候也会窗口勾挂失败！　　勾住了SHFileOperation等函数，DLL用Delphi写的C会的太少，查了半天才知道原来explorer是用SHFileOperation删除文件，经过测试很稳定，没有出现崩溃的情况，由于只勾住了SHFileOperation函数，所以别的程序要是调用DeleteFile删除文件，拦截不到，要是想拦截DeleteFile自己接着写吧。　　　　mod_Inject.bas类的注释摘录：　　Dim MyAddr As Long ‘执行远程线程代码的起始地址。这里等于LoadLibraryA的地址　　‘dll文件路径　　MyDllFileLength = LenB(StrConv(MyDllFileName, vbFromUnicode)) + 1 　　 ‘这里把dll文件名从Unicode转换成Ansi，否则英文字母是2个字节。 _ 　　顺便说一下，学过C的应该知道字符串要以/0标志结尾，所以dll文件名长度要加上1个字节存放Chr(0) 　　‘得到进程的句柄　　在目标进程中申请分配一块空白内存区域。内存的起始地址保存在MyDllFileBuffer中。 _ 　　这块内存区域我们用来存放dll文件路径，并作为参数传递给LoadLibraryA。　　在分配出来的内存区域中写入dll路径径。注意第二个参数传递的是MyDllFileBuffer的内容， _ 　　而不是MyDllFileBuffer的内存地址? 　　If MyReturn = 0 Then Inject = False 　　MyAddr = GetProcAddress(GetModuleHandle("Kernel32"), "LoadLibraryA") 　　‘得到LoadLibraryA函数的起始地址。他的参数就是我们刚才写入的dll路径。但是LoadLibraryA本身是不知道参数在哪里的。 _ 　　接下来我们就用CreateRemoteThread函数告诉他参数放在哪里了? If MyAddr = 0 Then Inject = False 　　MyResult = CreateRemoteThread(ProcessHandle, 0, 0, MyAddr, MyDllFileBuffer, 0, 0) 　　好了,现在用CreateRemoteThread在目标进程创建一个线程，线程起始地址指向LoadLibraryA， _ 　　参数就是MyDllFileBuffer中保存的dll路径? 　　 If MyResult = 0 Then 　　 Inject = False 　　 Else 　　 Inject = True 　　 End If 　　 ‘接下来你可以使用WaitForSingleObject等待线程执行完毕。 _ 　　并用GetExitCodeThread得到线程的退出代码，用来判断时候正确执行了dll中的代码。　　 CloseHandle MyResult 　　 CloseHandle ProcessHandle 　　 ‘扫地工作　　End Function

利用msghook.ocx控件，即消息钩子控件，利用VB API函数，通过拖拽获得文件名。（支持多文件）

功能:VB创建线程（其它语言没测试过，不知是否能用）。编写原因：鉴于VB创建稳定线程的需求特点：可替代API CreateThread来创建线程，且自动对线程进行初始化，线程函数中不再需要初始化线程就可以使用对象、类、窗口等。提供多达四个线程参数，如果不够用的可通过结构体扩展，通过API声明使用，大大简化代码。使用很方便，特别是对于初学者。注意：请将程序设为从sub main()启动，否则会重复调用启动窗口。和其它多线程一样，不能在IDE环境调试，只能编译EXE后再调试。特别声明：此DLL仅限于VB爱者研究使用，使用者请注明出处（首发于VBGOOD 链接地址http://www.vbgood.com/thread-108165-1-1.html），不得用于商业用途，本人也不对使用此DLL产生的任何后果负责。 文件名:VBCreateThread.dll 函数名:CreateThreadE 参数（共五个）: address 线程函数地址 long型 p0至p3 为线程参数 long型返回值:线程句柄 long型 VB申明及参数示例: Public Declare Function CreateThreadE Lib "VBCreateThread.dll" (ByVal address As Long, ByVal p0 As Long, ByVal p1 As Long, ByVal p2 As Long, ByVal p3 As Long) As Long

7,763

社区成员

197,609

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章