Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
CODE PROJECT For Those Who Code
  • Home
  • Articles
  • FAQ
Community
B

big_D

@big_D
About
Posts
4
Topics
2
Shares
0
Groups
0
Followers
0
Following
0

Posts

Recent Best Controversial

  • Find and copy files
    B big_D

    Ok, I have an excel spreadsheet with partial file names. How does one go about finding a folder with the partial file name. Folders are named like: AB_######_businessname ABC_######_businessname in my spreadsheet I have the ###### What I want to do is go to a directory, find a folder with the ###### in the name, and copy the folder to my destination folder. Help please!!!

    Visual Basic help

  • Trouble with IF...Then...ElseIf...
    B big_D

    I'm writing this for attachmate, and our interface only uses uppercase. But that is definetley a good suggestion to keep in mind.

    Visual Basic lounge

  • Trouble with IF...Then...ElseIf...
    B big_D

    Ok, thanks for the suggestion, I'll go ahead and do that.

    Visual Basic lounge

  • Trouble with IF...Then...ElseIf...
    B big_D

    Im trying to get this if then statement to work, but I'm new to VB and programming in general and I'mnot sure what's wrong, or even if this is the best way to do what i want to do. I see there is a select case method, but I'm not sure the best way to do this. Thanks in advance. When strOwnerCode = "M", my strTitle is not getting populated correctly. I'm not sure where my flaw is(probably my whole statement).

    strOwnerCode=sess0.screen.GetString(10, 78, 01)

    If strOwnerCode = “C” then
    sess0.screen.sendkeys("<PF2>") 'opens the officers library
    strTitle=sess0.screen.GetString(10, 13, 01)’ check the code for officer title
    if strTitle = “S” then
    strTitle = “Secretary”
    elseif strTitle = “P” then
    strTitle = “President”
    elseif strTitle = “T” then
    strTitle = “Treasurer”
    elseif strTitle = “V” then
    strTitle = “Vice President”
    end if
    elseIf strOwnerCode = “D” then
    sess0.screen.sendkeys("<PF2>") 'opens the officers library
    strTitle=sess0.screen.GetString(10, 13, 01)’ check the code for officer title
    if strTitle = “M” then
    strTitle = “Member”
    elseif strTitle = “G” then
    strTitle = “Manager”
    end if
    elseif strOwnerCode = “M” then
    sess0.screen.sendkeys("<PF2>") 'opens the officers library
    strTitle=sess0.screen.GetString(10, 13, 01)’ check the code for officer title
    if strTitle = “M” then
    strTitle = “Owner Receiving Mail”
    elseif strTitle = “O” then
    strTitle = “Et Al”
    end if
    elseif strOwnerCode = “S” then
    strTitle = “Owner”
    end if

    Visual Basic lounge
  • Login

  • Don't have an account? Register

  • Login or register to search.
  • First post
    Last post
0
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups