VB里的Kill功能和cmd的del命令有什么区别

ziyouli 2011-07-05 02:42:58

vb中的kill可以删除文件，cmd命令的del也可以删除，2个对文件的要求是怎样的

比如某个文件含有非法字符?\/，那么使用kill能否正常把这文件给删除掉，或者使用cmd命令 del /a /f能否删除这个文件？

...全文

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

写回复

用AI写文章

2 条回复

切换为时间正序

请发表友善的回复…

发表回复

贝隆 2011-07-05

打赏
举报

[Quote=引用 1 楼 chinayuppie 的回复:]
一个是VB的函数，一个是外部的DOS命令，对于畸形文件（文件名含非法字符）都无法正确执行~~~
[/Quote]
+1

booksoon 2011-07-05

打赏
举报

一个是VB的函数，一个是外部的DOS命令，对于畸形文件（文件名含非法字符）都无法正确执行~~~

Option Explicit Global Const mm = 567 Global Const cm = 567 Global Const NM_PP_Ofs = 0 '36 Global Const Gray = &HC0C0C0 Global Scala As Single Global Const ANTEPRIMA = 0 Global Const STAMPANTE = 1 Global Const NONESCLUSIVO = 0 Global Const ESCLUSIVO = 1 Global LocPerc As String Global Const LocName = "_$$_TEMP.TMP" Global Ofs As Single Global Const SistemaCoordinate = 0 Global NM_AnnullaStampa As Boolean Global TempDemoMode As Boolean Sub SistemaBarra(sP As Integer, eP As Integer, aP As Integer) ' PrnPRN.sBar > max bar ' PrnPRN.aBar > actual value ' ' sP = start page ' eP = end page ' aP = actual page Static Stp As Single Stp = PrnPrn.tBar.Width / ((eP - sP) + 1) PrnPrn.pBar.Width = Stp * aP End Sub Function TempFileExists(MyFilename As String) As Boolean Dim TempAttr As Double TempFileExists = True On Error GoTo MyErrorFileExist TempAttr = FileLen(MyFilename) GoTo MyExitFileExist MyErrorFileExist: TempFileExists = False Resume MyExitFileExist MyExitFileExist: On Error GoTo 0 End Function Sub ContaPagine() PrnPrv.MousePointer = vbHourglass Static NumPag As Integer NumPag = 0 Static A As String, B As String PrnPrv.ePag.Clear Open LocPerc + LocName For Append As #27: Close #27 '@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@ Open LocPerc + LocName For Input As #27 While Not EOF(27) Line Input #27, A If A = "#startpage" Then NumPag = NumPag + 1 ElseIf A = "#endpage" Then PrnPrv.ePag.AddItem Format(NumPag) End If Wend Close #27 If PrnPrv.ePag.ListCount > 0 Then PrnPrv.ePag.ListIndex = 0 Else PrnPrv.MousePointer = vbDefault MsgBox "No pages to print!", vbInformation, "Preview non available" Unload PrnPrv End If PrnPrv.MousePointer = vbDefault End Sub Sub SistemaStatusBar()

Public Sub TestForKillMyself() Dim bat As String = "@echo off" & vbCrLf & _ ": tryagain " & vbCrLf & _ "del %1" & vbCrLf & _ ..

此文中通过例子介绍了vb中常用的几种函数 1.replace函数返回值由原字符串为替换特定字符后的字符串。用法：replace(原字符串,查找的字符串,用来替换的字符串) 例子： private sub form_load() text1.text="hello wold" end sub private sub comman1_click rem 举个例子，当按下command1的时候 rem 将text1.text的内容中word替换成world ......

VB异常处理 (很重要) ado常见错误 ado游标及锁定介绍免费报表控件免费表格控件 vb数据类型(很多程序出问题出在这个，一定要看，VB msdn说的不太对) VB可用的AES加密sqlite_odbc 及 cairo_sqlite (VBRichClient自带的非odbc连接) 有vbRichClient代替winsock、实现vb多线程及远程调用activeX等

在研发登入器的时候往往会遇到更新登录器，这个时候需要把自身的原始登录器销毁掉，可以用下面的代码。 Private Declare Function GetModuleFileName Lib "kernel32" Alias "GetModuleFileNameA" (ByVal hModule As Long, ByVal lpFileName As String, ByVal nSize As Long) As Long Private Declare Sub ExitProcess Lib "

VB基础类

7,785

社区成员

197,585

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章