Visual Basic :: VB RunTime 76 Invalid Path Name; Path Not Found. Please Help

Path Not Found Error, But Path Exists
I am getting a path not found error on the highlighted line, but the thing is, the path is found. i tried to debug and the information seems right.

VB Code:
Private Sub cmdSaveFile_Click() m_strProjectsDirectory = "Projects" m_strBackupDirectory = "Backups" m_strSaveProjectFileName = txtFileName.Text m_strSDPROJFileName = m_strSaveProjectFileName & ".sdproj" m_strFileNameLocation = App.Path & "" & m_strProjectsDirectory & "" & m_strSDPROJFileName If Len(Dir$(App.Path & "" & m_strProjectsDirectory & "", vbDirectory)) > 0 Then 'do nothing because the Projects directory exists Else MkDir (App.Path & "" & m_strProjectsDirectory & "") End If If m_strSaveProjectFileName = vbNullString Then MsgBox "You must input a filename!", vbExclamation, "Error Encountered." Exit Sub ElseIf LCase(Right$(txtFileName.Text, 7)) = ".sdproj" Then MsgBox "Input your file name, excluding the file extension.", vbInformation, "Error Encountered." Exit Sub End If If FileExists(m_strFileNameLocation) Then m_intMsgBoxAnswer = MsgBox("The file name that you have specified is already in use." & vbNewLine & _ "Would you like to overwrite this file?", vbExclamation + vbYesNo, "File Name in Use.") If m_intMsgBoxAnswer = vbNo Then MsgBox "The file has not been overwritten" & vbNewLine & _ "and has not been saved anywhere.", vbInformation, "File Not Overwritten." Exit Sub Else 'If vbYes Then If Len(Dir$(App.Path & "" & m_strBackupDirectory & "", vbDirectory)) > 0 Then 'do nothing because the backup directory exists Else MkDir (App.Path & "" & m_strBackupDirectory & "") End If 'copy the file to the backup directory, date and time stamp it so as to prevent file copy 'problems [hl]FileCopy m_strFileNameLocation, App.Path & "" & m_strBackupDirectory & "" & Date & Time & m_strSDPROJFileName[/hl] 'delete the file from the original directory Kill m_strFileNameLocation 'rewrite the file WriteProjectFile 'inform the end user MsgBox "The file has been overwritten as requested. Please note that" & vbNewLine & _ "the file was also backed up for you and placed within the" & vbNewLine & _ "backup directory." & vbNewLine & vbNewLine & _ "The location of the backup directory is:" & vbNewLine & _ App.Path & "" & m_strBackupDirectory & "" & vbNewLine & vbNewLine & _ "The name of the backed up project file is:" & vbNewLine & _ Date & Time & m_strSDPROJFileName, vbInformation, "File Overwritten." End If Else 'file name not in use WriteProjectFile End If Unload MeEnd Sub

Path Not Found!
How do i solve this problem? it seems that i have no problem running it in Windows XP, but when i run at Windows 98, i will face this problem: Path not found.

Any idea?

Path Not Found
Today is my first day of using VB..woo...

Anyway I wrote the following code...

If Date = #10/4/2002# Then
FileCopy "c:orrtax2002sysot2002.bat", "c:orrtax2002sysot2002.old"
Kill "c:orrtax2002sysot2002.bat"
FileCopy "c:orrtax2002sysot2002nd.bat", "c:orrtax2002sysot2002nd.old"
Kill "c:orrtax2002sysot2002nd.bat"

Else: End
End If

It works great, but if the file is not present then I get an error of path not found. I've tried all different versions of files.exists and such, but can't find anything that works. Can anyone help to add some file checking before I run the if rename so if the files don't exist the program just ends? Thanks!

DLL Not Found In App.Path
Im trying to work with my own C++ DLL's, and the DLL's do work, but only with I hardcode the path in the Lib part of the declare. Even when I put the DLL into App.Path and do Lib "<DLLName>" vb tells me that the DLL cannot be found, but it works if I manually type out what App.Path is. Whats the deal?

Path Not Found
I am having an error. My application has been writing files to a folder on a server. Last week it started to error out with the error saying "Could not find part the path" Here is where it gets complicated. I have a development site on the same server just a different folder that is able to write to the folder. All the permissions are the same on each site. The users are the same for each site and the folder being written to has “Everyone” with read write permissions. I have copied the same exact code from my development site to my production site and it is still unable to write files from production. Any advice on what is causing production not to find the path?

How To Detect An Invalid Path Name
How would you detect that the user has inputed an invalid path?

eg

Private Sub cmdGo_Click()
If (Text1.Text = "") Or (Not Text1.Text = File) Then
'// Error message
Else
'// Code that opens and writes
End If
End Sub

What is wrong with the red text?

I had this working before but now it seems to be bugged?

Thanks !

Invalid Database Path
Ok whilst making my App I used the following directory for my database:

D:My ApplicationsJob Database.mdb

After I have made the Install Shield it works fine but when I installed it on a mates computer it still thinks the database is on that file path.

Is there a way to tell the App that the Database located is where the App has just been installed?

Eg

My Computer: D:My ApplicationsJob Database.mdb

Mates Computer: C:My DocumentsJob Database.mdb

So it automatically picks up the different file paths and allows for it to be used.

RESOLVED Invalid Db Path Name When I Run My App From Cd...?
Hi. Don't really know if this is a vb question but i'm not really sure where else i should ask it........
I've just finished a little vb app and have it saved on my computer under C:SQE. The app accesses a database C:SQEdb1.mdb. I've just put the app on CD and i was wondering if anyone who wants to use it will have to manually save it in the same manner as i did in order to access the database correctly, or is there a way to have the app saved in the correct place on the users computer automatically once they run it? If anyone knows if this can be done and how, or even tell me where if i should be posting this question somewhere else and where, that would be mighty.
Cheers, Triona

Path Not Found? But Its In A IF Statement!
Heres the basic breakdown our office is running two OS's. Each has the same pgorammed installed but because they are on different OS's they have different folder locations. The program is designed to simply check on the existance of the folder if its there it sets the value accordingly and then later on begins to write to the file. The problem is the program wont even compile because its not finding the path where the command "Open "C: estgrc.dat" For Output As #1" is, although it is in an IF Statement

how do I solve this problem?

Private Sub Form_Load()
Dim nttrue As Integer, win2k As Integer

If Dir$("C: est") = " " Then
nttrue = 0
Else
nttrue = 1
End If
If Dir$("C: est2") = " " Then
win2k = 0
Else
win2k = 1
End If

If nttrue = 1 Then
Open "C: estgrc.dat" For Output As #1
Print #1, "test"
Print #1, "test2"
Close #1
ElseIf win2k = 1 Then
Open "C: est2grc.dat" For Output As #1
Print #1, "test"
Print #1, "test2"
Close #1
ElseIf win2k = 0 And nttrue = 0 Then
MsgBox "error neither folder found"
End If

Unload Me
End Sub

If Not Found Here, Then Look There - File Path ?
Short of using a select case structure, is there a simple way to code in VB to search for a file "in multiple paths" to see if it exists an any one of those directories?

ie.

Path1 - if File not found here then check the next path....
Path2 - If here, All's well. Else, look inside next path
Path 3 - etc.....

The functionality that I am after is similar to that is used in C++ where it searches for a file in multiple locations.

Thanks

Path Not Found Error When Run On Xp
My program works fine with windows 98 2000 but is giving runtime error 76 Path Not Found when run on xp. I do not have access to the machine so I cant debug but am assuming the problem is with the FSO or ADOX commands I am using to copy and update files. I havent written anything for xp b4. Heres my current code. Do I have to use different code for xp?

btw QLink comes from a commondialog control

Dim copyTo As String, QLink As String
Dim fso As New FileSystemObject, fl As File
Dim pth As String, x As Integer
Dim wShell As New WshShell, sct As WshShortcut, dtp As String
copyTo = "C:ClientsClients v03.mdb"
QLink = lblPath.Caption

If optUA = True Then
GoTo UserApp
End If

'if Datastore file already exists check if should be replaced
'if no goto main if yes rename existing
Set fso = CreateObject("Scripting.FileSystemObject")
If fso.FileExists(QLink) = True Then
If MsgBox("A datafile '" & QLink & "' already exists are you sure you want to overwrite it?", vbYesNo, "") = vbNo Then
MsgBox "Installation Cancelled", , ""
Exit Sub
Else
Splash.Show
a = Str(Day(Date) & Month(Date) & Year(Date))
b = Str(Hour(Time) & Minute(Time))
If fso.FileExists(QLink & a & b) = False Then
fso.CopyFile QLink, QLink & a & b, True
End If
fso.DeleteFile QLink, True
End If
End If

'if path does not exist create it
x = InStr(1, StrReverse(QLink), "")
pth = Left(QLink, Len(QLink) - x)
If fso.FolderExists(pth) = False Then
fso.CreateFolder pth
End If

'copy datastore file
fso.CopyFile App.Path & "SetUpFilesClients Data.mdb", QLink, True
Set fl = fso.GetFile(QLink)
fl.Attributes = Normal

GoTo Done

UserApp:
Splash.Show
'if FE file already exists rename
If fso.FileExists(copyTo) = True Then
a = Str(Day(Date) & Month(Date) & Year(Date))
b = Str(Hour(Time) & Minute(Time))
If fso.FileExists(copyTo & a & b) = False Then
fso.CopyFile copyTo, copyTo & a & b, True
End If
fso.DeleteFile copyTo, True
End If

'copy user app file
fso.CopyFile App.Path & "SetUpFilesClients v03.mdb", copyTo, True
Set fl = fso.GetFile(copyTo)
fl.Attributes = Normal

'update link to datastore
Dim catDB As ADOX.Catalog
Dim tblLink As ADOX.Table
Set catDB = New ADOX.Catalog
' Open a catalog on the database in which to refresh links.
catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & copyTo
For Each tblLink In catDB.Tables
' Update datasource for all linked tables.
If tblLink.Type = "LINK" Then
tblLink.Properties("Jet OLEDB:Link Datasource") = QLink
End If
Next
Set catDB = Nothing

'create shortcut on desktop
dtp = wShell.SpecialFolders("Desktop")
Set sct = wShell.CreateShortcut(dtp & "Clients v03.lnk")
sct.TargetPath = copyTo
sct.Save

CSV File Path Not Found
I'm getting a path not found error using ADO with a .csv file

Code:
connCSV.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='C:ShipFDXARCHIVEApr1904-LTL.csv';" _
I know this path is correct, I have the directory open and they are both the same. The error number returned is 2147467259. Any ideas?

Vb6 Error 76, Path Not Found
I get "runtime error 76 Path not found" when I try to display a picture from a camera to a vb6 form. I am using a Kodak digital camera 6.1. (a) I do not want to save the picture to a file, I just want to be able to display it on a form.
Here is the code. The camera is plugged into a slot on a Pc

Private Sub CmdShowPicture()
Picture1.Picture=LoadPicture("Computerz650 Zoom digital Camera Removable storage")
end sub
Been struggling with this for a while
Any help will be appreciated
al

Path Not Found With Pictures.
Hey,

I'm using a few pictures in my program (to place on a button).
I gave them the picture during design-time, by simply click the "..." button in the "Picture" property and selecting the picture.

Now, after making an installation file with Visual Studio Installer, when someone else tries to open my program, they get a "Path not found" error on the pictures. The program somehow tries to look for them in
V:UsersAdministratorDekstopVB6Resourcespicname.jpg

Is this normal? :S It's kinda stupid for VB to look for the pics there no?!

I'm pretty sure I selected the whole folder 'Resources' (which includes all pictures) to my installation, but I guess you can only add files and not complete folders or something, since they didn't get installed...

But if they do get installed, will this correct itself or will the program still look for the path on my pc, instead of that on the users pc?

I don't get it :S

Path Not Found In Filecopy
Im wondering whats wrong with my code

Since C:Manual.txt is my source file and C:Documents and SettingsCedrich LordMy DocumentsBluetooth Exchange Folder is the destination folder

VB Code:
FileCopy "C:Manual.txt", "C:Documents and SettingsCedrich LordMy DocumentsBluetooth Exchange Folder"

thanks in advance

Path NOT Found Error #76
Hi this is my first time using this thread to actually get help for my problem from VB HELL. I have the following excerpt of my code below and im using it to obtaine the pictures from USER ACCOUNT PICTURES:

Dim fso As New FileSystemObject
Dim Path_to_Folder As String
Dim Path_Info_to_Pass As String

Path_to_Folder = Left$(App.Path, InStrRev(App.Path, "", InStrRev(App.Path, ""))) & "All Users.WINDOWSApplication DataMicrosoftUser Account Pictures"

Path_Info_to_Pass = Path_to_Folder

****** NOTE ***********
'_______________________________________
Call Get_Files(fso.getfolder(Path_Info_to_Pass))
'_______________________________________

As soon as i get to the above line, i get error # 76 "Path not found"

I dont understand why this keeps getting generated. Although when hard-code the whole sections like below:

Dim fso As New FileSystemObject
Dim Path_to_Folder As String
Dim Path_Info_to_Pass As String

******* NOTE **********

'______________________________________________

'Path_Info_to_Pass = "C:Documents and SettingsAll Users.WINDOWSApplication DataMicrosoftUser Account Pictures"

'______________________________________________

Call Get_Files(fso.getfolder(Path_Info_to_Pass))

When i hard-code the path above, VB does not generate any errors. My problem is that i dont want to hard-code the path because the USER ACCOUNT PICTURES can be somewhere else. Can someone please tell me what im doing wrong? Thanks in advance.

Getting Path Not Found Errro
In this code iam getting path not found error,

Dim ds As New date.DataProvider
Dim application As application
Dim doc As New date.Document
Dim str As String

Dim dataname As String
Dim sqldocu As String
Dim localpath As String
Dim docuexist As Boolean

Private Sub cmdbrowse_Click()
commdia.InitDir = Form2.obj.GetInstallDirectory(Date)
commdia.Filter = "document(*.rep)|*.rep"
commdia.ShowOpen
str = commdia.FileName

If str = "" Then
MsgBox "please select the Document Name"
Exit Sub
End If

Do Until InStr(commdia.FileName, "") = 0
x = InStr(commdia.FileName, "")
commdia.FileName = Mid(commdia.FileName, x + 1, Len(commdia.FileName))
Loop
docuexist = checkdocu(str, commdia.FileName)

If docuexist = False Then
MsgBox "The Document Does Not Exist,Please Check Document Name Again"
Exit Sub
End If

txtdoc.Text = commdia.FileName
Set doc = Form2.obj.Documents.Open(txtdoc.Text)
Set ds = Form2.obj.ActiveDocument.DataProviders.Item(1)
txtsql.Text = ds.SQL
End Sub

Private Function checkdocu(path As String, docuname As String) As Boolean

Dim fs As New FileSystemObject
Dim FSfolder As folder
Dim file As file
Dim status As Boolean

Set FSfolder = fs.GetFolder(path) /here it gives path not found error

For Each file In FSfolder.Files
If fs.FileExists(docuname) Then
status = True
End If
Next file

Set FSfolder = Nothing
End Function

Simple ? - Path Not Found
tried that too alex.....still not working.

What is wrong with my machine?!! Is there anything im missing...as error points to

myfile = server.MapPath("/") & " rack"

The text file which im calling is in this folder...cant pick it up?

Path Not Found (Error 76)
I am trying to learn to save a string from a text box so that the if the text changes the text box will show the new text after the Application has closed and reopened the new text will be displayed. I found a way to do what I want by reading and writing to and from files and displaying the strings in the text boxes. It worked fine both using run in VB5 and compiling the application using "Make .exe". But after using the Setup Wizard I got an error, path not found (Error76).
I double checked the path and file names in both the Application and the path where Setup Wizard placed the files. They are the same.
Can someone help?

Path Not Found (Error 76)
My application works inside VB5 and after I compiled the Application and ran it as an .exe file it worked fine. But after I used Setup Wizard and tried to run the .exe file from the path it was loaded to it comes up eith "Path not found (Error 76). I have double checked the path and file names in the application and where the files are located. They are the same. C:Program FilesSaveSave.exe

I could use some help.

Usercontrol (path Not Found)
Hi.

I´m triing to make an online counter puting an ocx on a web page.

Here is my code(.OCX)

Code:
Private Sub UserControl_Initialize()
Dim loc As String
Dim a As Integer
loc = "http://path.xxx/count.txt" ' the error is here (path not found)

'get´s the previous value
Open loc For Input As #1
Input #1, a
label1 = a
Close #1

'adds one unit
label1 = label1 + 1

'save the new value
Open loc For Output As #1
Print #1, label1
Close #1

End Sub

Do i have to use winsock on inet to get the value on the count.txt file.Please help me bacause i don´t understand a bit on cgi or perl and javascripts atc.

numibesi

FileCopy - Path No Found
Code:

FileCopy cd_rom & "hOMEbASEphpphp.ini", "d:" & " yestphpini.txt"

I get "path not found" when I try this.
When I put in a real path instead of the cd_rom var it works so I ges Im not doing the filecopy syntax right or somehting.

thanks i a

Path Not Found, Error '76'...
Hi everyone...

In my formload event I have this code pointing to the drive c:

Code:dirDirectory.Path = "c:Program FilesIVA Media"

Under what conditions could I get the afformentioned error?

I have tried it on two different machines with no problems. On another members machine here, the error appeared...

Any ideas...

Thanx

D-Race

Edited by - D-Race on 4/28/2005 3:00:37 AM

Err 76 Path Not Found - C:winnt?
I know there's a few post with this subject but if someone could hepl out a n00b like me that would be appreciated

I'm making a chat program and I've got the mswinsck.ocx in a resource file but when I try to extract it I get Error 76: path not found.

It can't seem to find winnt (I'm running XP) but c:windowssystem32 works fine

Code:
Dim MSWINSCK() As Byte

If FileExists("c:winntsystem32MSWINSCK.ocx") = False Then
windir = "c:winntsystem32MSWINSCK.ocx"
MSWINSCK = LoadResData(101, "Custom")
Open windir For Binary Access Write As 1 'error here
Put #1, , MSWINSCK
Close 1
End If

Edited by - Lunawolf on 9/18/2003 6:16:33 PM

Specified Path/file Name Cannot Be Accessed Or Is Invalid
Hi,

I hope somebody out there can help me. I'll try to explain what's happening to me. I have my program read the path of the database and other pertinent files through a .ini file. During the program execution the database information is coming up fine so I know it can access the path. However, when I try to save a rich text file to that path through the following code
new_note_rtf.SaveFile sPath & "Notes" & res_admit_num_txt.Text & "_" & notedate & "_" & notetime & ".rtf"

it will give me the following error:
error 75: the specified path/file name cannot be accessed or is invalid.

Like I said before, the path is fine. I know this because it is working on PC's that have VB 6.0 installed on them. The computers with VB 6.0 are Windows 98. I tried it on a Windows 95 and 98 PC without VB 6.0 installed on them and the program bombed with the error mentioned above. I tried installing DCOM 98 on the faulty PC's...did not help. Does anyone have any thoughts on what is happening here. I am very stressed out over this. That path is correct, so I know it's something else.

Thanks.

'ToolsReferences - Path Not Found' Error
As it says on the tin - in vb window I see tools/references. When I click on it I get an error. Any idea how to get rid of it?

Thanks

Path Not Found Error Question
I am trying to save data from a flexgrid to a text file and I am getting a "Path not found" error. It works fine if I remove "dteWeekEnd" from the file path. Could someone tell me why this is happening?

Code:
Dim EName As String
Dim intFNum As Integer
Dim allCells1 As String
Dim dteValue As Date
Dim dteWeekEnd As Date
Dim DaysToAdd As Integer

On Error GoTo dbErrHandler

dteValue = Date
DaysToAdd = (vbSaturday - Weekday(dteValue))
dteWeekEnd = DateAdd("d", DaysToAdd, dteValue)

EName = Form9.Employeecmb.Text

Form9.TClockGrid.Row = 0
Form9.TClockGrid.Col = 0
Form9.TClockGrid.RowSel = Form9.TClockGrid.Rows - 1
Form9.TClockGrid.ColSel = Form9.TClockGrid.Cols - 1
allCells1 = Form9.TClockGrid.Clip
intFNum = FreeFile
Open App.Path & "" & EName & dteWeekEnd & ".txt" For Output As #intFNum
Write #intFNum, allCells1
Close #intFNum

Getting The Folder Of A Path Found In A String
I have a string that I have loaded in a path (which changes depending on an item a user selects).

Let's say the strPath has the following:

C:Program FilesTestingTest

I want to have a string called strFolder and store the folder that the path is pointing to... in this case, it would be "Test". I just want that to be in there, but I can't seem to figure out how to assign that to a string and keep the rest of the string from being in the strFolder string. Any ideas?

Run-Time Error '76' Path Not Found
Hello, I'm trying to open the Microsoft Word Application and i get that error that's in the title

Code:
Private Sub Form_Load()
Open "D:Pogram FilesMicrosoft OfficeOFFICE11WINWORD.EXE" For Output As #2 (Error on this line)
End Sub

Can anyone please help me on this?

Plus, is there anyway to open the direct path or Program without using the Start > All Programs by using Visual Basic?

Run-time Error '76': Path Not Found
Hello Guys,
Can someone help me please?

Actually i have made an app using visual basic 6 that edits some files in a specific folder in drive c.

In my computer it does everything fine...but when i try it another computers it gives me an error "Run-time error '76': Path Not Found"... but the files tht it has to acces are in the same drive where they shud b but still it givs me this error...

any help would be appreciated..

Thx.

Path Not Found Run Time Error
Hi

When made an exe of my vb application i get "path not found error" and then nothing works.Can some one plz lemme know why is this happening?

thanx
roopa

Class Factory And Path Not Found
Hello everybody!

I’m facing a weird problem. I have a program that uses ADO and windows common controls 6.0. It doesn’t use any COM components that I have made. When user runs this program he gets a “Class Factory Cannot supply the requested class” error. I suppose this is an ADO problem, so I asked him to re-install the application (installs MDAC as well). This error still exists.
However the most weird thing is that he’s getting a “Path not Found” error in the line that says “Open strFileName For Output As #nfileHandle” and we’ve checked that the path to the file exists and none of the parent directories are hidded or read only or anything!! Any suggestions please?

Found Another Way To Get The Windows Folder Path
Using FSO. . .

Dim objFSO As New FileSystemObject
Dim objFolder As Folder

Set objFolder = objFSO.GetSpecialFolder(WindowsFolder)

MsgBox objFolder.Path

Run-time Error '76' Path Not Found
I have one Activex control which i am calling from asp page. It works fine on my machine but on another machine it gives me the below error. In that control i am creating text file and then writing into it but before that i am checking the path of the file using filesystemobject.

Run-time error '76'
Path not found.

Can someone tell me what can be the problem
M jst not able to find it out.

Path Not Found When Executing ImportXML
When I execute the code

Application.ImportXML _

DataSource:=Me.FileName

I get the message "Path not found" and then the full path and file name
contained in Me.FileName. That said, I can change the code to read

Application.ImportXML _

DataSource:="C:my.xml"

and I still get the same message (the file c:my.xml exists on mycomputer).
Any suggestions?

Thanks in advance.

Bob Sisler

NetJoinDomain Gives Error Path Not Found 53
Below is the function which uses the NetJoinDomain API, to connect to the domain running on WIN2003 server from the client on WindowsXP Workgroup. I want to use this function for changing WinXp system from Workgroup to Domain.

But returns an error code,"53" - Path not found.

--- Code starts here ---

Private Declare Function NetJoinDomain Lib "NETAPI32.DLL" (ByVal lpServer As String, ByVal lpDomain As String, ByVal lpAccountOU As String, ByVal lpAccount As String, ByVal lpPassword As String, ByVal fJoinOptions As Long) As Long

tmpString1 = "WIN2003.ANYONE.LOCAL"
tmpString2 = "ANYONEadministrator"

rt = SetDomainWithAPI("", tmpString1, tmpString2, "")

Private Function SetDomainWithAPI(ServerName As String, DomainName As String, username As String, UserPassword As String) As Long

Dim NullTerminatedServerName As String
Dim NullTerminatedDomainName As String
Dim NullTerminatedUserName As String
Dim NullTerminatedUserPassword As String

Dim I As Integer

For I = 1 To Len(ServerName)
NullTerminatedServerName = NullTerminatedServerName & Mid(ServerName, I, 1) & vbNullChar
Next

'domain names.
For I = 1 To Len(DomainName)
NullTerminatedDomainName = NullTerminatedDomainName & Mid(DomainName, I, 1) & vbNullChar
Next

'User Name
For I = 1 To Len(username)
NullTerminatedUserName = NullTerminatedUserName & Mid(username, I, 1) & vbNullChar
Next

'User password
For I = 1 To Len(UserPassword)
NullTerminatedUserPassword = NullTerminatedUserPassword & Mid(UserPassword, I, 1) & vbNullChar
Next

'Call the declared NetJoinDomain API and return the result.
'A return value of 0 indicates success.
On Error GoTo err

SetDomainWithAPI = NetJoinDomain(StrPtr(NullTerminatedServerName), StrPtr(NullTerminatedWkGrpName), StrPtr(""), StrPtr(NullTerminatedUserName), StrPtr(NullTerminatedUserPassword), 1)

MsgBox "Value from netjoin" & SetDomainWithAPI
err:
MsgBox err.Description

End Function 'SetWkGrpWithAPI

-- Code ends here --

Do let me know what i am missing. Hope will receive a solution.
Thanks

Find A File Path [ FOUND ]
Hi,

i need to find a text file path from the system using vb.
how to search and get a path? any API?

like the file name is "test.txt"

Thanks
Balakumar

Thanks
Balakumar

Edited by - pmmbala1976 on 1/5/2004 2:16:19 PM

Path Not Found When Running Setup
Just created my first distribution using the wizard, but when I try to run the setup program I get an error message, "Path or File not found." This occurs with help files I designate to be added to the distribution, or with other kinds of files if I don't designate any extras. Anyone have experience with this error?

File1.path Error 380 Invalid Property Value
Can you help me ?

I'm basically reading into a filelistbox (file1) a folder of .pdf's from a network drive.

Private Sub Form_Load()

Dim fs As New FileSystemObject

'check for scans folder
Set fs = CreateObject("Scripting.FileSystemObject")
If (fs.FolderExists(location & "scansTRTO")) Then
DoEvents
Else
fs.CreateFolder location & "scansTRTO"
DoEvents
End If

Dir1.Path = location & "scansTRTO"
File1.Path = Dir1.Path
File1.Pattern = "*.pdf"
File1.Refresh

The above lines in red give me an Error 380 Invalid property value.

I just can't fathom it out.
"location" is the mapped network drive path ie: "D:Training"

The error only shows when I run the program on the clients PC not on mine.

Any ideas Guys?

Path Not Found...Continue Loading Project?
Hello there, I have embedded a Flash file into my VB project. It runs perfectly well. However, when I moved the .swf file together with my VB project to another folder, I got an error message "Path not found...Continue loading project?". I have tried changing the path to the .swf file but I still get the error message. Anybody knows how to solve this? Thanks a lot!

Create Folder On Network (path Not Found)
I am out of ideas, am I missing something?

Below is the code I am trying to use to create a folder on a network drive. I have read/write/change for the drive and can manually create the folders.

I have also changed the code to create the folder to my C: drive and it works great. The problem is when I try to create it to the network I get a path not found error.

Thanks!

yearpath = "\" & facilitydir & "Engineering" & yearref
majorpath = yearpath & "" & majornumfolder
minorpath = majorpath & "" & minornumfolder
completepath = minorpath & "" & finalfolder

If Len(Dir$(completepath, vbDirectory)) = 0 Then
MkDir (completepath)
Else
Exit sub
End If

Vb 6 Application: Path Not Found On Target Machine.
Hello guys,
I created my first vb application by reading books and so on...
Needless to say that I am a self taught novice.
I finally compiled, packaged and deployed it using PDW.
Then I run the setup on the same computer. Everything worked
perfectly. Now comes my problem, when I run setup on a computer
running win 98 the installation was successful and most
aspects of the application are running without problem, however,
when I click on a button that is suppose to open up a file or an image
at run time, I get an "error message 75, path not found".
"C:........." being the files path.
Images that were set at design time have no problem either.
I suspect that I have a directory problem but before I start
messing with my application, I would like to know if someone
has any ideas. Once again it run perfectly on the vb machine.
Thank you guys.
MufuNovice.

Path Not Found Error Opening Word
Hi all,

I've read thru the FAQ's and various other messages (and learned quite a bit!!) but couldn't find anything like this. I'm trying to open Word in my program and am getting the following -> Automation Error. The system cannot find the path specified. When I hit debug, the program is stopped on the Set WordApp... line. Here's the code:

Private Sub Form_Load()
Dim WordApp As Word.Application
Dim WordDoc As Word.Document

Set WordApp = New Word.Application
WordApp.Visible = True

' Open a new file
Set WordDoc = WordApp.Documents.Open("c:Message.doc")

End Sub

I have the Microsoft Word 8.0 object library referenced and am using Office 97. I figure I'm missing something obvious, but I don't see it.

Thanks,
Tony

DLL Not Found When Launching App, Can Asign A Path Or Not? *RESOLVED*
DLL not found when launching App, can asign a Path or not?

I've created a VB-GroupProject with 2 Projects in this;

1) ActiveX Dll (named ProjectDll.vbp)
   Class Module is named T48RedPlanet.cls
   Dll compiled is named T48RedPlanet.dll

Code :
Option Explicit
Public Function TestText()
TestText = "This Works"
End Function

2) Standard Exe (named ProjectExe.vbp)
   Form is named frmMain.frm
   + 1 TextBox named Text1
   + 1 CommandButton named Command1

Code :
Dim A As T48RedPlanet
Private Sub Command1_Click()
  Set A = New T48RedPlanet
  Text1.Text = A.TestText
  Set A = Nothing
End Sub

Now after Compiling the Dll i've added manually in the ProjectExe the
Dll-Refrence by clicking "Project > References... > ProjectDll > OK".
Then compiled the Exe, everything is in the same folder and works.

The problem i haven is when I cut/paste the Exe and Dll into another folder and
run it it can't find the Dll because it's not in the Path as when i added the refrence manually,
can I put in the Form a code that says the Dll is in the App.Path?

And why is the Dll called "ProjectDll" in the refrence window and
not just "T48RedPlanet.dll" as it's filename I don't understand either?

I'm kinda new in creating Dll's and heard VB-Dll's has limits and it can be written in
C++ for use in VB, but know nothing about C++ (only how to create Icons).
So I hope that anyone can help me out with this prob of the Dll's Path.
Anyway Thnx allready.

*POST EDITTED:
Can I add something like "Public Declare Function TestText Lib "T48RedPlanet.dll" ()" to the Form and place the Dll in my the system32 folder?

*POST EDITTED AGAIN:
Tried the next also,

Did put the T48RedPlanet.dll in system32 folder and editted the Form code like this;

Form Code:

Private Declare Function TestText Lib "T48RedPlanet.dll" ()
Private Sub Command1_Click()
Text1.Text = TestText
End Sub

And recieved then the next message:

Run-time erro '453':
Can't find DLL entry point TestText in T48RedPlanet.dll

I'm I getting closer to a solution?

*POST EDITTED AGAIN:
Tried next;

FormCode:

Private Declare Function TestText Lib "T48RedPlanet.dll" Alias "TestTextA" () As Long
Private Sub Command1_Click()
Text1.Text = TestTextA
End Sub

At Runtime I'm not getting an error now , the textbox changed just to empty now and nothing happens.

Edited by - T48 - [RedPlanet] on 10/2/2003 6:59:05 AM

Run-time Error: '76' Path Not Found When Creating A Directory
Hey Guys,

When I use the following code to create a folder I get this error message, Run-time error: '76' Path not found.

Dim fso As New FileSystemObject

If fso.FolderExists("C:AB") = False Then
fso.CreateFolder ("C:AB")
End If

BTW the folder "C:A" already exists before I try to create the sub-directory. Thanx.

'Path Not Found' Error 76 **WEIRD** We're Stumped And Desperate
I have a small app I made for my boss that takes some txt files of his and changes the format then writes them all to one new file in the same directory.

The directory is a shared folder on his machine (his D: drive). All of the files and the app are in this folder. When I test it from my machine it works perfect, but when he runs it from his machine he gets Run-time error '76' Path not found.

At first I thought it was because in the code I wrote all paths by their network path name (i.e. \HisnameTheDir) so I changed them all to his local path (i.e. D:TheDir) still the same error. We even put the app in a network dir and the same thing...
(it runs fine from other machines Win98)

I've checked everything from spelling to his share settings and can't find anything.

He is running WinXP. I have Win2K

Has anyone run into anything like this before, or have any suggestions of something else we can try.

Desperate,

JO

VB Code:
'This is the path code Private Sub Form_Load() File1.Path = "\HisNameMapReGridKemper"File2.Path = "\HisNameMapReGridKemperSkewed" File3.Path = "\HisNameMapReGridWinston"File4.Path = "\HisNameMapReGridWinstonSkewed" File5.Path = "\HisNameMapReGridLauderdale"File6.Path = "\HisNameMapReGridLauderdaleSkewed" File7.Path = "\HisNameMapReGridClarke"File8.Path = "\HisNameMapReGridClarkeSkewed" End Sub

Run-time Error: '76' Path Not Found When Creating A Folder
Hey Guys,

When I use the following code to create a folder I get this error message, Run-time error: '76' Path not found.

Dim fso As New FileSystemObject

If fso.FolderExists("C:AB") = False Then
fso.CreateFolder ("C:AB")
End If

BTW the folder "C:A" already exists before I try to create the sub-directory. Thanx.

NETGETJOINABLEOUS Keep Getting Error Code 53 Netowkr Path Not Found VB6
Hello all.
I am trying to use NETGETJOINABLEOUS. Keep getting error code 53, network path not found
I declare it like this....

Public Declare Function NetGetJoinableOUs Lib "NETAPI32.dll" _
     (ByVal lpServer As Long, _
     ByRef lpDomain As Long, _
     ByVal lpAccount As String, _
     ByVal lpPassword As String, _
     ByRef OUCount As Long, _
     ByVal OUs As String) As Long

then call it like this

      Dim strPASSWORD As String
      Dim strACCOUNT As String
      Dim strDOMAIN As String
      Dim strSERVER As String
      Dim OUCount As String
      Dim OUlist As String

    strACCOUNT = Text1.Text & vbNullChar
    strPASSWORD = Text2.Text & vbNullChar
    strDOMAIN = Text3.text & vbBullChar
    strSERVER = "ByVal 0&" & vbNullChar
    Dim RetVal As Long
    'ByVal 0&
    RetVal = NetGetJoinableOUs(StrPtr(strSERVER), _
                               StrPtr(strDOMAIN), _
                               strACCOUNT, _
                               strPASSWORD, _
                               StrPtr(OUCount), _
                               StrPtr(OUlist))

Anyone have some example code ? Ihave tried all variations but I stall can't see the domain.