macros - VBA PowerPoint to check if a FileNma already exist -


what want check if file name exist , make my modification. tried several methode no 1 work!! can me please finding solution?

this wrote 3 different methods:

private sub commandbutton21_click() dim lretval long dim objfso object dim checkexists boolean  todate = datevalue(now) oldweekday = weekday(todate) select case oldweekday  case 1 newfilename = "pt pm weekly " & format(date + 4, "yyyymmdd") case 2 newfilename = "pt pm weekly " & format(date + 3, "yyyymmdd") case 3 newfilename = "pt pm weekly " & format(date + 2, "yyyymmdd") case 4 newfilename = "pt pm weekly " & format(date + 1, "yyyymmdd") case 5 newfilename = "pt pm weekly " & format(date, "yyyymmdd") case 6 newfilename = "pt pm weekly " & format(date + 6, "yyyymmdd") case 7 newfilename = "pt pm weekly " & format(date + 5, "yyyymmdd")  end select ownpathname = application.activepresentation.path fullfilename = ownpathname & "\" & newfilename msgbox ownpathname msgbox fullfilename '------------------------------------------------------------------- 'lretval = application.presentations.open(fullfilename) 'if lretval <> hfile_error '  msgbox "modification done" '------------------------------------------------------------------    'if dir(fullfilename) <> ""    'msgbox "modification done"  '-------------------------------------------------------------------         'set objfso = createobject("powerpoint.application")         'checkexists = objfso.fileexists(fullfilename)         'if checkexists = true         'msgbox "modification done" else deletetextbox allblackanddate lastmodifieddate saveallpresentations (fullfilename) end if end sub

thank help!

try code below, check if newfilename of powerpoint presentation exists in same folder, , if bring-up msgbox wanted.

private sub commandbutton21_click()  dim newfilename             string dim ownpathname             string  oldweekday = weekday(now)  select case oldweekday      case 1         newfilename = "pt pm weekly " & format(date + 4, "yyyymmdd")     case 2         newfilename = "pt pm weekly " & format(date + 3, "yyyymmdd")     case 3         newfilename = "pt pm weekly " & format(date + 2, "yyyymmdd")     case 4         newfilename = "pt pm weekly " & format(date + 1, "yyyymmdd")     case 5         newfilename = "pt pm weekly " & format(date, "yyyymmdd")     case 6         newfilename = "pt pm weekly " & format(date + 6, "yyyymmdd")     case 7         newfilename = "pt pm weekly " & format(date + 5, "yyyymmdd")  end select  ownpathname = activepresentation.path fullfilename = ownpathname & "\" & newfilename  ' debug (can remove later) msgbox ownpathname msgbox fullfilename   dim strfile             string dim filefound           boolean  filefound = false ' types of powerpoint files (filter powerpoint files save time) strfile = dir(ownpathname & "\*ppt*")  while len(strfile) > 0     if instr(strfile, newfilename) > 0         filefound = true         exit     end if     strfile = dir loop  if filefound     msgbox "modification done" else     ' .... logics  end if  end sub

-

Comments

Post a Comment

Popular posts from this blog

python - How to insert QWidgets in the middle of a Layout? -

Image
i'm using qt framework build graphical user interface. use qgridlayout position qwidgets neatly. gui looks this: my application regularly adds new widgets gui @ runtime. these new widgets not added @ end of qlayout, somewhere in middle. the procedure bit cumbersome. applied on figure above, need take out widg_c , widg_d , ... qgridlayout. next, add widg_x and widg_y , , put other widgets again. how remove widgets qgridlayout: for in reversed(range(mygridlayout.count())): self.itemat(i).widget().setparent(none) ### as long you're dealing small amount of widgets, procedure not disaster. in application display lot of small widgets - perhaps 50 or more! application freezes second while procedure ongoing, annoying user. there way insert widgets somewhere in qlayout, without need take out other widgets? edit: apparently solution qvboxlayout simple. use function insertwidget(..) instead of addwidget(..) . docs can found link: http://doc.qt.io/qt-5/qboxlayou
Read more

python - serve multiple gunicorn django instances under nginx ubuntu -

i need serve 2 webs apps (django) on gunicorn under different domain names using nginx on ubuntu. started using tutorial: https://www.digitalocean.com/community/tutorials/how-to-set-up-django-with-postgres-nginx-and-gunicorn-on-ubuntu-16-04 it worked fine 1 using that. tried same thing second gives me 502 gateway second domain. tried following tutorial: http://michal.karzynski.pl/blog/2013/10/29/serving-multiple-django-applications-with-nginx-gunicorn-supervisor/ i'm @ part run gunicorn start script: sudo bin/gunicorn_start i response: starting webuildblack root traceback (most recent call last): file "/home/devin/webuildblack/bin/gunicorn", line 7, in <module> gunicorn.app.wsgiapp import run importerror: no module named 'gunicorn.app'; 'gunicorn' not package you have named program gunicorn.py gunicorn -package. rename file , remove gunicorn.pyc file.
Read more

module - Prestashop displayPaymentReturn hook url -

i new prestashop developer , trying create paymentmodule. have got show payment method can not proceed purchase because not know hot works. does know should redirect run hooddisplaypaymentreturn method? i happy if explain me complete navigation map make purchase. anyway, can find relation between hooks , pages? when have new module payment rely on simplest provided prestashop: bankwire. inside can find 3 hooks. hookpayment: public function hookpayment($params) { if (!$this->active) return; if (!$this->checkcurrency($params['cart'])) return; $this->smarty->assign(array( 'this_path' => $this->_path, 'this_path_bw' => $this->_path, 'this_path_ssl' => tools::getshopdomainssl(true, true).__ps_base_uri__.'modules/'.$this->name.'/' )); return $this->display(__file__, 'payment.tpl'); } hookdisplaypaymenteu: public fun
Read more