Vb.net 我不知道';我不明白是什么';这个密码有什么问题
你能帮我查一下这个密码吗?请不要给我一个否定的分数Vb.net 我不知道';我不明白是什么';这个密码有什么问题,vb.net,forms,copy,directory,Vb.net,Forms,Copy,Directory,你能帮我查一下这个密码吗?请不要给我一个否定的分数 If Not Directory.Exists("C:\Libraries\Documents\Backup - Advanced_Website_Blocker Folder") Then Directory.CreateDirectory("C:\Libraries\Documents\Backup - Advanced_Website_Blocker Folder") End If Dim File
If Not Directory.Exists("C:\Libraries\Documents\Backup - Advanced_Website_Blocker Folder") Then
Directory.CreateDirectory("C:\Libraries\Documents\Backup - Advanced_Website_Blocker Folder")
End If
Dim FileToCopy As String
Dim NewCopy As String
FileToCopy = "C:\Windows\System32\drivers\etc\hosts"
NewCopy = "C:\Libraries\Documents\Backup - Advanced_Website_Blocker Folder\hosts"
If System.IO.File.Exists(FileToCopy) = True Then
System.IO.File.Copy(FileToCopy, NewCopy)
MsgBox("File Copied")
Else : MsgBox("No Folder Found!")
End If
请查看并尝试以下内容: 此外: 这是一个文件夹
If System.IO.File.Exists(FileToCopy)
正在检查文件是否存在而不是文件夹您需要检查文件是否存在,如果存在,请覆盖它。您可以使用文件的重载。复制方法覆盖文件:
If System.IO.File.Exists(FileToCopy)
System.IO.File.Copy(FileToCopy, NewCopy, True)
检查要导入的库,请参见下面的示例代码:
' For File.Exists, Directory.Exists
Imports System
Imports System.IO
Imports System.Collections
Public Class RecursiveFileProcessor
Public Overloads Shared Sub Main(ByVal args() As String)
Dim path As String
For Each path In args
If File.Exists(path) Then
' This path is a file.
ProcessFile(path)
Else
If Directory.Exists(path) Then
' This path is a directory.
ProcessDirectory(path)
Else
Console.WriteLine("{0} is not a valid file or directory.", path)
End If
End If
Next path
End Sub 'Main
' Process all files in the directory passed in, recurse on any directories
' that are found, and process the files they contain.
Public Shared Sub ProcessDirectory(ByVal targetDirectory As String)
Dim fileEntries As String() = Directory.GetFiles(targetDirectory)
' Process the list of files found in the directory.
Dim fileName As String
For Each fileName In fileEntries
ProcessFile(fileName)
Next fileName
Dim subdirectoryEntries As String() = Directory.GetDirectories(targetDirectory)
' Recurse into subdirectories of this directory.
Dim subdirectory As String
For Each subdirectory In subdirectoryEntries
ProcessDirectory(subdirectory)
Next subdirectory
End Sub 'ProcessDirectory
' Insert logic for processing found files here.
Public Shared Sub ProcessFile(ByVal path As String)
Console.WriteLine("Processed file '{0}'.", path)
End Sub 'ProcessFile
End Class 'RecursiveFileProcessor
您在这方面有什么问题?错误、意外结果???不,您需要告诉我们问题是什么,您遇到了哪些异常。那我们就可以帮你了。不!在文件浏览器C:\Windows\System32\drivers\etc\hostsAn中搜索文件mscorlib.dll中发生“System.IO.IOException”类型的未处理异常其他信息:文件“C:\Libraries\Documents\Backup-Advanced\u Website\u Blocker Folder\hosts”已存在。确定,if Not try if else可能有问题,即:if Directory.Exists(“C:\Libraries\Documents\Backup-Advanced\u Website\u Blocker Folder”),然后是else Directory.CreateDirectory(“C:\Libraries\Documents\Backup-Advanced\u Website\u Blocker Folder”)End If不起作用查看mscorlib.dll中发生了类型为“System.IO.IOException”的未处理异常其他信息:文件“C:\Libraries\Documents\Backup-Advanced\u Website\u Blocker Folder\hosts”已存在。需要更多信息,该文件夹实际存在吗,简单的解决方法:用一个尝试的方法来包装创建行,抓住一点欺骗,但是得到的工作完成了。这里不鼓励只使用链接的人,因为这些链接将来可能无效。对不起!!!我会尽量不把其他论坛的链接,但我认为我可以把这样的链接。对吗?