¿Cómo determina vb.net si el archivo especificado en la dirección de red existe?
Función de declaración privada PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) Siempre
Esta es una función encapsulada en el archivo de sistema Shell32.DLL No solo puede determinar si el archivo local existe, sino también si el archivo en la computadora remota existe. El valor de retorno de la función es una variable de tipo Long, que devuelve dos valores 0 y 1. 1 indica que el archivo existe (Verdadero) y 0 indica que el archivo no existe (Falso). Y solo hay un parámetro, szPath, que es una variable de cadena. Si desea determinar si el archivo local existe, la ruta se puede escribir como: "C:\Windows\Config\SysBook.Txt"). está en una computadora remota, se puede escribir la ruta (asumiendo que la IP de la computadora de la otra parte es 192.168.0.2)
"\\192.168.0.2\d$\javatools\somefile.txt", si el. El nombre de la computadora es WorkStation, se puede escribir como
"\\workstation\javatools\somefile.txt", por supuesto, esta función también puede buscar archivos web en el sitio web como: "/ms.htm "
Podemos escribir una función pública personalizada simple Para completar esta función, llame a esta función API en la función personalizada
Función pública GetFileExists(ByVal FileName As String) As Boolean
Si FileName = "" Entonces
MsgBox "Ingrese el nombre del archivo", vbInformation, "Preguntar"
Función de salida
De lo contrario
GetFileExists = CBool(PathFileExists(FileName))
End If
Fin de función
Agregar un botón y un cuadro de texto al formulario interfaz
Private Sub Command1_Click()
Atenuar T como booleano
T = GetFileExists("F:\it\Develope\Retail\Bill\vssver.scc ")
Si T = True Entonces
p>Text1.Text = "El archivo existe"
Else
Text1.Text = "El archivo no existe"
End If
End If
Text1.Text = "El archivo no existe" p>
Fin Sub
Por supuesto, los parámetros en GetFileExists también se pueden escribir como
"\\192.168.0.2\d$\javatools\somefile.txt"
"\\workstation\javatools\somefile.txt"
"/ms.htm"
Además de determinar si el archivo existe, esta función también puede determinar el archivo local o remoto Si la carpeta
existe, creo que esto es mucho más fácil de usar que usar Dir, la función incorporada de VB, para determinar si el archivo existe, y no es necesario llamar al componente FileSystemObject para operar. .