皮皮网

1.java renameTo()
2.VB中删除文件夹

java renameTo()

       å¯ä»¥çš„呀！！！！

       è¦ä¸ä½ æŠŠæºç å‘来看看！！！

       è¿™ä¸ªæ–¹æ³•æ˜¯é‡å‘½åæ–‡ä»¶ã€‚不是移动文件。

       ä½ åˆ°åº•ä»€ä¹ˆæ„æ€ï¼Ÿï¼Ÿï¼Ÿï¼Ÿ

       /*

       renameTo

       public boolean renameTo(File dest)重新命名此抽象路径名表示的文件。

       æ­¤æ–¹æ³•è¡Œä¸ºçš„许多方面都是与平台有关的：重命名操作无法将一个文件从一个文件系统移动到另一个文件系统，

       è¯¥æ“ä½œå¯èƒ½ä¸æ˜¯åŽŸå­çš„，如果已经存在具有目标抽象路径名的文件，则该操作可能无法获得成功。

       åº”该始终检查返回值，确保重命名操作成功。

       å‚数：

       dest - 指定文件的新抽象路径名

       è¿”回：

       å½“且仅当重命名成功时，返回 true；否则返回 false

       æŠ›å‡ºï¼š

       SecurityException - 如果存在安全管理器，

       ä¸”å…¶ SecurityManager.checkWrite(java.lang.String) 方法拒绝对原来的和新的路径名进行写入访问

       NullPointerException - 如果参数 dest 为 null

       */

       import java.io.*;

       public class TestRenameTo {

       public static void main(String[] args) throws Exception {

       File f = new File("she-五月天.mp3");

       File test = new File("五月天.mp3");

       f.renameTo(test);

       }

       }

VB中删除文件夹

       兄台.你复制下面的源码jvmcms源码代码,试试

       如果成功的话.能否给个5 分 分给我,呵呵 开玩笑啦

       'VB强行删除目录或（VB强行删除文件）模块源码

       '需要控件:command1

       Public Enum FO_Operation

       FO_MOVE = 1

       FO_COPY = 2

       FO_DELETE = 3

       FO_RENAME = 4

       End Enum

       Public Enum FOFlags

       FOF_MULTIDESTFILES = &H1 'Destination specifies multiple files

       FOF_SILENT = &H4 'Don't display progress dialog

       FOF_RENAMEONCOLLISION = &H8 'Rename if destination already exists

       FOF_NOCONFIRMATION = &H 'Don't prompt user

       FOF_WANTMAPPINGHANDLE = &H 'Fill in hNameMappings member

       FOF_ALLOWUNDO = &H 'Store undo information if possible

       FOF_FILESONLY = &H 'On *.*, don't copy directories

       FOF_SIMPLEPROGRESS = &H 'Don't show name of each file

       FOF_NOCONFIRMMKDIR = &H 'Don't confirm making any needed dirs

       End Enum

       Public 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 Long ' only used if FOF_SIMPLEPROGRESS

       End Type

       Private Declare Function SHFileOperation Lib "shell.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

       Private op As SHFILEOPSTRUCT

       Public Sub DeleteFolder(sDeleteFolder As String, Optional Interface As Boolean = False)

       SetAttr sDeleteFolder, vbNormal

       With op

       .wFunc = FO_DELETE

       .pFrom = sDeleteFolder

       .fFlags = IIf(Interface = False, FOF_NOCONFIRMATION, FOF_NOCONFIRMATION And FOF_SILENT)

       End With

       SHFileOperation op

       End Sub

       Private Sub Command1_Click()

       Call DeleteFolder("D:\新建文件夹", True)

       End Sub