Ohjelma valittaa kun yritän jakaa tiedostoa "bad file name or number"
Tiedoston lähetys systeemi:
Private Sub mnu_sendfile_Click()
On Error GoTo Canceled
cdlg.CancelError = True
cdlg.Filter = "All files|*.*"
' If you want to reset the path everytime the user tries to send a file, uncomment the following line:
' cdlg.InitDir = App.Path
cdlg.ShowOpen
If cdlg.filename > "" Then
SendFilename Replace(SelectedUser.Key, "ip", ""), cdlg.filename
End If
Canceled:
Exit Sub
End SubEn ole varma toimiiko näin, mutta koita muuttaa
SendFilename Replace(SelectedUser.Key, "ip", ""), cdlg.filename
muotoon:
SendFilename Replace(SelectedUser.Key, "ip", ""), Replace(cdlg.filename, "/", "\")
Aihe on jo aika vanha, joten et voi enää vastata siihen.