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

ziyouli 2011-07-05 02:42:58

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

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

...全文

244 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()

停止使用Kill→ 改用Try-Catch永远校验输入路径→ 防止路径穿越攻击采用指数退避重试→ 提升短暂冲突下的成功率记录详细操作日志→ 便于审计与排错封装统一工具类→ 提高团队协作效率技术演进的本质，是从“能用就行”走向“稳如老狗”。Kill曾经让我们快速完成任务，但现在是时候让它退休了。用更现代、更安全、更具可维护性的方式来处理文件操作，不仅是对代码负责，更是对用户的数据负责。

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 ......

在研发登入器的时候往往会遇到更新登录器，这个时候需要把自身的原始登录器销毁掉，可以用下面的代码。 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,789

社区成员

197,583

社区内容

发帖

与我相关

我的任务

社区管理员

加入社区

近7日
近30日
至今

加载中

查看更多榜单

社区公告

暂无公告

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

+ 用AI写文章